projects / p5sagit/p5-mst-13.2.git / blame
| Commit | Line | Data |
|---|---|---|
| 1f70e1ea | 1 | # typemap for Perl 5 interface to Berkeley |
| a0d0e21e | 2 | # |
| 6ca2e664 | 3 | # written by Paul Marquess <Paul.Marquess@btinternet.com> |
| 20896112 | 4 | # last modified 21st February 1999 |
| 5 | # version 1.64 | |
| 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) { |
| 6b88bc9c | 19 | $var.data = SvPV($arg, PL_na); |
| 20 | $var.size = (int)PL_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 | |
| 6b88bc9c | 30 | $var.data = SvPV($arg, PL_na); |
| 31 | $var.size = (int)PL_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); |