(intentionally empty)
[perl.git] / ext / NDBM_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         if (SvOK($arg)) {
24             $var.dptr = SvPV($arg, PL_na);
25             $var.dsize = (int)PL_na;
26         }
27         else {
28             $var.dptr = \"\";
29             $var.dsize = 0;
30         }
31 T_GDATUM
32         UNIMPLEMENTED
33 OUTPUT
34 T_DATUM_K
35         sv_setpvn($arg, $var.dptr, $var.dsize);
36         ckFilter($arg, filter_fetch_key,\"filter_fetch_key\");
37 T_DATUM_V
38         sv_setpvn($arg, $var.dptr, $var.dsize);
39         ckFilter($arg, filter_fetch_value,\"filter_fetch_value\");
40 T_GDATUM
41         sv_usepvn($arg, $var.dptr, $var.dsize);
42 T_PTROBJ
43         sv_setref_pv($arg, dbtype, (void*)$var);