This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Add socklen_t probe; Configure maintenance.
[perl5.git] / ext / ODBM_File / typemap
1 #
2 #################################### DBM SECTION
3 #
4
5 datum_key               T_DATUM_K
6 datum_value             T_DATUM_V
7 gdatum                  T_GDATUM
8 NDBM_File               T_PTROBJ
9 GDBM_File               T_PTROBJ
10 SDBM_File               T_PTROBJ
11 ODBM_File               T_PTROBJ
12 DB_File                 T_PTROBJ
13 DBZ_File                T_PTROBJ
14 FATALFUNC               T_OPAQUEPTR
15
16 INPUT
17 T_DATUM_K
18         ckFilter($arg, filter_store_key, \"filter_store_key\");
19         $var.dptr = SvPV($arg, PL_na);
20         $var.dsize = (int)PL_na;
21 T_DATUM_V
22         ckFilter($arg, filter_store_value, \"filter_store_value\");
23         $var.dptr = SvPV($arg, PL_na);
24         $var.dsize = (int)PL_na;
25 T_GDATUM
26         UNIMPLEMENTED
27 OUTPUT
28 T_DATUM_K
29         sv_setpvn($arg, $var.dptr, $var.dsize);
30         ckFilter($arg, filter_fetch_key,\"filter_fetch_key\");
31 T_DATUM_V
32         sv_setpvn($arg, $var.dptr, $var.dsize);
33         ckFilter($arg, filter_fetch_value,\"filter_fetch_value\");
34 T_GDATUM
35         sv_usepvn($arg, $var.dptr, $var.dsize);