The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

#include "EXTERN.h"
#include "perl.h"
#include "XSUB.h"

#include "GtkDefs.h"
#include "GnomeDefs.h"


MODULE = Gnome::Calculator		PACKAGE = Gnome::Calculator		PREFIX = gnome_calculator_

#ifdef GNOME_CALCULATOR

Gnome::Calculator_Sink
new(Class)
	CODE:
	RETVAL = (GnomeCalculator*)(gnome_calculator_new());
	OUTPUT:
	RETVAL

void
gnome_calculator_clear(calculator, reset)
	Gnome::Calculator	calculator
	gint	reset

void
gnome_calculator_set(calculator, result)
	Gnome::Calculator	calculator
	gdouble	result

gdouble
gnome_calculator_get_result(calculator)
	Gnome::Calculator	calculator

#endif