This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
PATCH: make DBM*_File modules sub-classable
[perl5.git] / ext / NDBM_File / typemap
CommitLineData
8990e307
LW
1#
2#################################### DBM SECTION
3#
4
5datum T_DATUM
6gdatum T_GDATUM
7NDBM_File T_PTROBJ
8GDBM_File T_PTROBJ
9SDBM_File T_PTROBJ
10ODBM_File T_PTROBJ
11DB_File T_PTROBJ
12DBZ_File T_PTROBJ
13FATALFUNC T_OPAQUEPTR
14
15INPUT
16T_DATUM
2304df62
AD
17 $var.dptr = SvPV($arg, na);
18 $var.dsize = (int)na;
8990e307
LW
19T_GDATUM
20 UNIMPLEMENTED
21OUTPUT
22T_DATUM
23 sv_setpvn($arg, $var.dptr, $var.dsize);
24T_GDATUM
25 sv_usepvn($arg, $var.dptr, $var.dsize);
4e2a63a7
PM
26T_PTROBJ
27 sv_setref_pv($arg, dbtype, (void*)$var);