ext/GDBM_File/typemap

   1 #
   2 #################################### DBM SECTION
   3 #
   4
   5 datum_key               T_DATUM_K
   6 datum_key_copy          T_DATUM_K
   7 datum_value             T_DATUM_V
   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         {
  20             STRLEN len;
  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 = (char *)\"\";
  46             /* better would be for .dptr to be const char * */
  47             $var.dsize = 0;
  48         }
  49 OUTPUT
  50 T_DATUM_K
  51         output_datum(aTHX_ $arg, $var.dptr, $var.dsize);
  52         DBM_ckFilter($arg, filter[fetch_key],\"filter_fetch_key\");
  53 T_DATUM_V
  54         output_datum(aTHX_ $arg, $var.dptr, $var.dsize);
  55         DBM_ckFilter($arg, filter[fetch_value],\"filter_fetch_value\");
  56 T_PTROBJ
  57         sv_setref_pv($arg, dbtype, (void*)$var);