contrib/perl5/ext/SDBM_File/typemap

   1 #
   2 #################################### DBM SECTION
   3 #
   4
   5 datum                   T_DATUM
   6 gdatum                  T_GDATUM
   7 NDBM_File               T_PTROBJ
   8 GDBM_File               T_PTROBJ
   9 SDBM_File               T_PTROBJ
  10 ODBM_File               T_PTROBJ
  11 DB_File                 T_PTROBJ
  12 DBZ_File                T_PTROBJ
  13 FATALFUNC               T_OPAQUEPTR
  14
  15 INPUT
  16 T_DATUM
  17         $var.dptr = SvPV($arg, PL_na);
  18         $var.dsize = (int)PL_na;
  19 T_GDATUM
  20         UNIMPLEMENTED
  21 OUTPUT
  22 T_DATUM
  23         sv_setpvn($arg, $var.dptr, $var.dsize);
  24 T_GDATUM
  25         sv_usepvn($arg, $var.dptr, $var.dsize);
  26 T_PTROBJ
  27         sv_setref_pv($arg, dbtype, (void*)$var);