[perl5.git] / ext / GDBM_File / typemap

#
#################################### DBM SECTION
#

datum			T_DATUM
gdatum			T_GDATUM
NDBM_File		T_PTROBJ
GDBM_File		T_PTROBJ
SDBM_File		T_PTROBJ
ODBM_File		T_PTROBJ
DB_File			T_PTROBJ
DBZ_File		T_PTROBJ
FATALFUNC		T_OPAQUEPTR

INPUT
T_DATUM
	$var.dptr = SvPV($arg, na);
	$var.dsize = (int)na;
T_GDATUM
	UNIMPLEMENTED
OUTPUT
T_DATUM
	sv_setpvn($arg, $var.dptr, $var.dsize);
T_GDATUM
	sv_usepvn($arg, $var.dptr, $var.dsize);
Commit	Line	Data
8990e307 LW	1	#
	2	#################################### DBM SECTION
	3	#
	4
	5	datum T_DATUM
	6	gdatum T_GDATUM
	7	NDBM_File T_PTROBJ
	8	GDBM_File T_PTROBJ
	9	SDBM_File T_PTROBJ
	10	ODBM_File T_PTROBJ
	11	DB_File T_PTROBJ
	12	DBZ_File T_PTROBJ
	13	FATALFUNC T_OPAQUEPTR
	14
	15	INPUT
	16	T_DATUM
2304df62 AD	17	$var.dptr = SvPV($arg, na);
2304df62 AD	18	$var.dsize = (int)na;
8990e307 LW	19	T_GDATUM
	20	UNIMPLEMENTED
	21	OUTPUT
	22	T_DATUM
	23	sv_setpvn($arg, $var.dptr, $var.dsize);
	24	T_GDATUM
	25	sv_usepvn($arg, $var.dptr, $var.dsize);