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