ext/ODBM_File/typemap

   1 #
   2 #################################### DBM SECTION
   3 #
   4
   5 datum_key               T_DATUM_K
   6 datum_key_copy          T_DATUM_K_C
   7 datum_value             T_DATUM_V
   8 gdatum                  T_GDATUM
   9 NDBM_File               T_PTROBJ
  10 GDBM_File               T_PTROBJ
  11 SDBM_File               T_PTROBJ
  12 ODBM_File               T_PTROBJ
  13 DB_File                 T_PTROBJ
  14 DBZ_File                T_PTROBJ
  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_K_C
  25         {
  26             SV * tmpSV ;
  27             STRLEN len;
  28             if (db->filter[store_key]){
  29                 tmpSV = sv_2mortal(newSVsv($arg));
  30                 DBM_ckFilter(tmpSV, filter[store_key], \"filter_store_key\");
  31             }
  32             else
  33                 tmpSV = $arg;
  34             $var.dptr = SvPVbyte(tmpSV, len);
  35             $var.dsize = (int)len;
  36         }
  37 T_DATUM_V
  38         DBM_ckFilter($arg, filter[store_value], \"filter_store_value\");
  39         if (SvOK($arg)) {
  40             STRLEN len;
  41             $var.dptr = SvPVbyte($arg, len);
  42             $var.dsize = (int)len;
  43         }
  44         else {
  45             $var.dptr = \"\";
  46             $var.dsize = 0;
  47         }
  48 T_GDATUM
  49         UNIMPLEMENTED
  50 OUTPUT
  51 T_DATUM_K
  52         sv_setpvn($arg, $var.dptr, $var.dsize);
  53         DBM_ckFilter($arg, filter[fetch_key],\"filter_fetch_key\");
  54 T_DATUM_V
  55         sv_setpvn($arg, $var.dptr, $var.dsize);
  56         DBM_ckFilter($arg, filter[fetch_value],\"filter_fetch_value\");
  57 T_GDATUM
  58         sv_usepvn($arg, $var.dptr, $var.dsize);
  59 T_PTROBJ
  60         sv_setref_pv($arg, dbtype, (void*)$var);