ext/SDBM_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         DBM_ckFilter($arg, filter_store_key, \"filter_store_key\");
  19         $var.dptr = SvPVbyte($arg, PL_na);
  20         $var.dsize = (int)PL_na;
  21 T_DATUM_V
  22         DBM_ckFilter($arg, filter_store_value, \"filter_store_value\");
  23         if (SvOK($arg)) {
  24             $var.dptr = SvPVbyte($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         DBM_ckFilter($arg, filter_fetch_key,\"filter_fetch_key\");
  37 T_DATUM_V
  38         sv_setpvn($arg, $var.dptr, $var.dsize);
  39         DBM_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);