ext/DB_File/typemap

   1 # typemap for Perl 5 interface to Berkeley DB
   2 #
   3 # written by Paul Marquess (pmarquess@bfsec.bt.co.uk)
   4 # last modified 28th June 1996
   5 # version 0.2
   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, na);
  20             $var.size = (int)na;
  21         }
  22         else {
  23             Value =  GetRecnoKey(db, SvIV($arg)) ;
  24             $var.data = & Value;
  25             $var.size = (int)sizeof(recno_t);
  26         }
  27 T_dbtdatum
  28         $var.data = SvPV($arg, na);
  29         $var.size = (int)na;
  30
  31 OUTPUT
  32
  33 T_dbtkeydatum
  34         OutputKey($arg, $var)
  35 T_dbtdatum
  36         OutputValue($arg, $var)
  37 T_PTROBJ
  38         sv_setref_pv($arg, dbtype, (void*)$var);