contrib/perl5/ext/DB_File/typemap

   1 # typemap for Perl 5 interface to Berkeley
   2 #
   3 # written by Paul Marquess <Paul.Marquess@btinternet.com>
   4 # last modified 21st February 1999
   5 # version 1.65
   6 #
   7 #################################### DB SECTION
   8 #
   9 #
  10
  11 u_int                   T_U_INT
  12 DB_File                 T_PTROBJ
  13 DBT                     T_dbtdatum
  14 DBTKEY                  T_dbtkeydatum
  15
  16 INPUT
  17 T_dbtkeydatum
  18         if (db->type != DB_RECNO) {
  19             $var.data = SvPV($arg, PL_na);
  20             $var.size = (int)PL_na;
  21             DBT_flags($var);
  22         }
  23         else {
  24             Value =  GetRecnoKey(db, SvIV($arg)) ;
  25             $var.data = & Value;
  26             $var.size = (int)sizeof(recno_t);
  27             DBT_flags($var);
  28         }
  29 T_dbtdatum
  30         $var.data = SvPV($arg, PL_na);
  31         $var.size = (int)PL_na;
  32         DBT_flags($var);
  33
  34 OUTPUT
  35
  36 T_dbtkeydatum
  37         OutputKey($arg, $var)
  38 T_dbtdatum
  39         OutputValue($arg, $var)
  40 T_PTROBJ
  41         sv_setref_pv($arg, dbtype, (void*)$var);