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
CommitLineData
8990e307
LW
1#
2#################################### DBM SECTION
3#
4
9fe6733a
PM
5datum_key T_DATUM_K
6datum_value T_DATUM_V
8990e307
LW
7gdatum T_GDATUM
8NDBM_File T_PTROBJ
9GDBM_File T_PTROBJ
10SDBM_File T_PTROBJ
11ODBM_File T_PTROBJ
12DB_File T_PTROBJ
13DBZ_File T_PTROBJ
14FATALFUNC T_OPAQUEPTR
15
16INPUT
9fe6733a
PM
17T_DATUM_K
18 ckFilter($arg, filter_store_key, \"filter_store_key\");
19 $var.dptr = SvPV($arg, PL_na);
20 $var.dsize = (int)PL_na;
21T_DATUM_V
22 ckFilter($arg, filter_store_value, \"filter_store_value\");
6b88bc9c
GS
23 $var.dptr = SvPV($arg, PL_na);
24 $var.dsize = (int)PL_na;
8990e307
LW
25T_GDATUM
26 UNIMPLEMENTED
27OUTPUT
9fe6733a
PM
28T_DATUM_K
29 sv_setpvn($arg, $var.dptr, $var.dsize);
30 ckFilter($arg, filter_fetch_key,\"filter_fetch_key\");
31T_DATUM_V
ef50df4b 32 sv_setpvn($arg, $var.dptr, $var.dsize);
9fe6733a 33 ckFilter($arg, filter_fetch_value,\"filter_fetch_value\");
8990e307 34T_GDATUM
ef50df4b 35 sv_usepvn($arg, $var.dptr, $var.dsize);