1 # typemap for Perl 5 interface to Berkeley
3 # written by Paul Marquess <Paul.Marquess@btinternet.com>
4 # last modified 10th December 2000
7 #################################### DB SECTION
18 DBM_ckFilter($arg, filter_store_key, \"filter_store_key\");
21 if (db->type != DB_RECNO) {
22 $var.data = SvPV($arg, PL_na);
23 $var.size = (int)PL_na;
26 Value = GetRecnoKey(aTHX_ db, SvIV($arg)) ;
28 $var.size = (int)sizeof(recno_t);
32 DBM_ckFilter($arg, filter_store_value, \"filter_store_value\");
35 $var.data = SvPV($arg, PL_na);
36 $var.size = (int)PL_na;
44 OutputValue($arg, $var)
46 sv_setref_pv($arg, dbtype, (void*)$var);