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         {
  19             STRLEN len;
  20             DBM_ckFilter($arg, filter_store_key, \"filter_store_key\");
  21             $var.dptr = SvPVbyte($arg, len);
  22             $var.dsize = (int)len;
  23         }
  24 T_DATUM_V
  25         DBM_ckFilter($arg, filter_store_value, \"filter_store_value\");
  26         if (SvOK($arg)) {
  27             STRLEN len;
  28             $var.dptr = SvPVbyte($arg, len);
  29             $var.dsize = (int)len;
  30         }
  31         else {
  32             $var.dptr = (char *)\"\";
  33             $var.dsize = 0;
  34         }
  35 T_GDATUM
  36         UNIMPLEMENTED
  37 OUTPUT
  38 T_DATUM_K
  39         sv_setpvn($arg, (char *)$var.dptr, $var.dsize);
  40         DBM_ckFilter($arg, filter_fetch_key, \"filter_fetch_key\");
  41 T_DATUM_V
  42         sv_setpvn($arg, (char *)$var.dptr, $var.dsize);
  43         DBM_ckFilter($arg, filter_fetch_value, \"filter_fetch_value\");
  44 T_GDATUM
  45         sv_usepvn($arg, $var.dptr, $var.dsize);
  46 T_PTROBJ
  47         sv_setref_pv($arg, dbtype, (void*)$var);