1 # typemap for Perl 5 interface to Berkeley
3 # written by Paul Marquess <Paul.Marquess@btinternet.com>
4 # last modified 20th June 2004
7 #################################### DB SECTION
20 DBM_ckFilter(my_sv, filter_store_key, \"filter_store_key\");
23 if (db->type == DB_RECNO) {
25 Value = GetRecnoKey(aTHX_ db, SvIV(my_sv)) ;
29 $var.size = (int)sizeof(recno_t);
31 else if (SvOK(my_sv)) {
33 $var.data = SvPVbyte(my_sv, len);
40 DBM_ckFilter(my_sv, filter_store_value, \"filter_store_value\");
45 $var.data = SvPVbyte(my_sv, len);
55 OutputValue($arg, $var)
57 sv_setref_pv($arg, dbtype, (void*)$var);