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 ckFilter($arg, filter_store_key, \"filter_store_key\");
20 if (db->type != DB_RECNO) {
21 $var.data = SvPV($arg, PL_na);
22 $var.size = (int)PL_na;
25 Value = GetRecnoKey(aTHX_ db, SvIV($arg)) ;
27 $var.size = (int)sizeof(recno_t);
30 ckFilter($arg, filter_store_value, \"filter_store_value\");
33 $var.data = SvPV($arg, PL_na);
34 $var.size = (int)PL_na;
42 OutputValue($arg, $var)
44 sv_setref_pv($arg, dbtype, (void*)$var);