//genMethods "-t" "int*" "-o" "intptrSTkInit.cc" 
#ifdef STK_INTERFACE
#include <stk.h>
#include <LINK_STk.h>
#endif

#include <LINK/stkWrapper/Wrapper.h>
#include <LINK/stkWrapper/Register.h>


typedef int* E_TYPE;
typedef E_TYPE FULL_TYPE;

#define DATA(x) ((int**) (EXTDATA(x)))
#define IS_DATA(x) (TYPEP(x, tc_CXXwrapper) && \
		TYPEP(STk_slot_ref(x,val_scm), tc_CXXwrapper) && \
		(EXTID(STk_slot_ref(x,val_scm)) == Wrapper<int*>::type)
#define ISNT_DATA(x) (!IS_DATA(x))

#define CXX_DATA(x) (*(int**) (EXTDATA(VAL(x))))
#define CXX_IS_DATA(x) (INSTANCEP(x) && \
		TYPEP(STk_slot_ref(x,val_scm), tc_CXXwrapper) && \
		(EXTID(STk_slot_ref(x,val_scm)) == Wrapper<int*>::type)
#define CXX_ISNT_DATA(x) (!CXX_IS_DATA(x))


void STk_init_int()
{
	Wrapper<FULL_TYPE >::type = STk_new_CXXwrapper_id(
			Wrapper<FULL_TYPE >::name, 
			""
			(void (*)(SCM x, SCM port, int mode))0,
			(void (*)(SCM x))0,
			(void (*)(SCM x))0);
	genExtraintMethods(..);
	return UNDEFINED;
}
#endif 
