ext/GDBM_File/typemap

   1 #
   2 #################################### DBM SECTION
   3 #
   4
   5 datum_key               T_DATUM_K
   6 datum_value             T_DATUM_V
   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_K
  17         ckFilter($arg, filter_store_key, \"filter_store_key\");
  18         $var.dptr = SvPV($arg, PL_na);
  19         $var.dsize = (int)PL_na;
  20 T_DATUM_V
  21         ckFilter($arg, filter_store_value, \"filter_store_value\");
  22         $var.dptr = SvPV($arg, PL_na);
  23         $var.dsize = (int)PL_na;
  24 OUTPUT
  25 T_DATUM_K
  26         output_datum(aTHX_ $arg, $var.dptr, $var.dsize);
  27         ckFilter($arg, filter_fetch_key,\"filter_fetch_key\");
  28 T_DATUM_V
  29         output_datum(aTHX_ $arg, $var.dptr, $var.dsize);
  30         ckFilter($arg, filter_fetch_value,\"filter_fetch_value\");
  31 T_PTROBJ
  32         sv_setref_pv($arg, dbtype, (void*)$var);