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 23rd June 1994
   5 # version 0.1
   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         {
  20             $var.data = SvPV($arg, na);
  21             $var.size = (int)na;
  22         }
  23         else
  24         {
  25             Value =  SvIV($arg) ;
  26             ++ Value ;
  27             $var.data = & Value;
  28             $var.size = (int)sizeof(recno_t);
  29         }
  30 T_dbtdatum
  31         $var.data = SvPV($arg, na);
  32         $var.size = (int)na;
  33
  34 OUTPUT
  35
  36 T_dbtkeydatum
  37         OutputKey($arg, $var)
  38 T_dbtdatum
  39         OutputValue($arg, $var)