Commit | Line | Data |
a0d0e21e |
1 | # typemap for Perl 5 interface to Berkeley DB |
2 | # |
3 | # written by Paul Marquess (pmarquess@bfsec.bt.co.uk) |
88108326 |
4 | # last modified 28th June 1996 |
5 | # version 0.2 |
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; |
21 | } |
88108326 |
22 | else { |
23 | Value = GetRecnoKey(db, SvIV($arg)) ; |
a0d0e21e |
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) |
a6ed719b |
37 | T_PTROBJ |
38 | sv_setref_pv($arg, dbtype, (void*)$var); |