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

#include "ppport.h"

typedef struct {
	int id;
	int desc;
	char* str;
} session;

MODULE = MySession		PACKAGE = MySession

void
new(str)
	char* str

	PREINIT:
		session* tmppt;
		int tmpint;
	PPCODE:
		tmppt = (session*) malloc(sizeof(session));
		tmppt->id = 42;
		tmppt->desc = 4242;
		tmppt->str = str;
		tmpint = (int) tmppt;

		EXTEND(SP, 1);
		PUSHs(sv_2mortal(newSViv((int) tmppt)));

MODULE = MySession		PACKAGE = MySession		

void
get(hndl)
	int hndl

	PREINIT:
		session* tmppt;
	PPCODE:
		tmppt = (session *)hndl;
		EXTEND(SP, 3);
		PUSHs(sv_2mortal(newSViv(tmppt->id)));
		PUSHs(sv_2mortal(newSViv(tmppt->desc)));
		PUSHs(sv_2mortal(newSVpv(tmppt->str, 0)));

MODULE = MySession		PACKAGE = MySession

void
disconnect(hndl)
	int hndl
	
	CODE:
		free((session*) hndl);