1 # typemap for Perl 5 interface to Berkeley
3 # written by Paul Marquess <Paul.Marquess@btinternet.com>
4 # last modified 20th March 1999
7 #################################### DB SECTION
18 ckFilter($arg, filter_store_key, \"filter_store_key\");
19 if (db->type != DB_RECNO) {
20 $var.data = SvPV($arg, PL_na);
21 $var.size = (int)PL_na;
25 Value = GetRecnoKey(aTHX_ db, SvIV($arg)) ;
27 $var.size = (int)sizeof(recno_t);
31 ckFilter($arg, filter_store_value, \"filter_store_value\");
32 $var.data = SvPV($arg, PL_na);
33 $var.size = (int)PL_na;
41 OutputValue($arg, $var)
43 sv_setref_pv($arg, dbtype, (void*)$var);