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
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
17         $var.dptr = SvPV($arg, na);
18         $var.dsize = (int)na;
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);
26 T_PTROBJ
27         sv_setref_pv($arg, dbtype, (void*)$var);