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

MODULE = Tree::BK_XS    PACKAGE = Tree::BK_XS	PREFIX= BK_

SV *
BK_new(package)
        char * package

	PROTOTYPE: $

	CODE:
	OBJECT t;
	SV *tp;
	t = new_object();
	tp = newSVpv((char *)&t, sizeof(OBJECT));
        RETVAL = newRV(tp);
	SvREFCNT_dec(tp);
        sv_bless(RETVAL, gv_stashpv(package, 0));
	SvREADONLY_on(tp);

	OUTPUT:
		RETVAL