#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);

##</code><code>##

#!/usr/bin/env perl

use strict;
use warnings;

use ExtUtils::testlib;

use MySession;

my $x = MySession::new("Session ID Goes Here");
print "$x\n";
my ($p, $q, $str) = MySession::get($x);
print "$p\n$q\n$str\n";

my $y = MySession::new("Another Session ID Goes Here");
print "$y\n";
($p, $q, $str) = MySession::get($y);
print "$p\n$q\n$str\n";

my $z = MySession::new("Yet Another Session ID Goes Here");
print "$z\n";
($p, $q, $str) = MySession::get($z);
print "$p\n$q\n$str\n";

MySession::disconnect($x);
MySession::disconnect($y);
MySession::disconnect($z);
 __END__