Commit | Line | Data |
---|---|---|
1f70e1ea | 1 | # typemap for Perl 5 interface to Berkeley |
a0d0e21e | 2 | # |
3 | # written by Paul Marquess (pmarquess@bfsec.bt.co.uk) | |
a9fd575d | 4 | # last modified 13th May 1998 |
5 | # version 1.59 | |
a0d0e21e | 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 | |
88108326 | 18 | if (db->type != DB_RECNO) { |
a0d0e21e | 19 | $var.data = SvPV($arg, na); |
20 | $var.size = (int)na; | |
1f70e1ea | 21 | DBT_flags($var); |
a0d0e21e | 22 | } |
88108326 | 23 | else { |
24 | Value = GetRecnoKey(db, SvIV($arg)) ; | |
a0d0e21e | 25 | $var.data = & Value; |
26 | $var.size = (int)sizeof(recno_t); | |
1f70e1ea | 27 | DBT_flags($var); |
a0d0e21e | 28 | } |
29 | T_dbtdatum | |
30 | $var.data = SvPV($arg, na); | |
31 | $var.size = (int)na; | |
1f70e1ea | 32 | DBT_flags($var); |
a0d0e21e | 33 | |
34 | OUTPUT | |
35 | ||
36 | T_dbtkeydatum | |
37 | OutputKey($arg, $var) | |
38 | T_dbtdatum | |
39 | OutputValue($arg, $var) | |
a6ed719b | 40 | T_PTROBJ |
41 | sv_setref_pv($arg, dbtype, (void*)$var); |