# typemap for Perl 5 interface to Berkeley # # written by Paul Marquess # last modified 10th December 2000 # version 1.74 # #################################### DB SECTION # # u_int T_U_INT DB_File T_PTROBJ DBT T_dbtdatum DBTKEY T_dbtkeydatum INPUT T_dbtkeydatum DBM_ckFilter($arg, filter_store_key, \"filter_store_key\"); DBT_clear($var) ; if (SvOK($arg)){ if (db->type != DB_RECNO) { $var.data = SvPV($arg, PL_na); $var.size = (int)PL_na; } else { Value = GetRecnoKey(aTHX_ db, SvIV($arg)) ; $var.data = & Value; $var.size = (int)sizeof(recno_t); } } T_dbtdatum DBM_ckFilter($arg, filter_store_value, \"filter_store_value\"); DBT_clear($var) ; if (SvOK($arg)) { $var.data = SvPV($arg, PL_na); $var.size = (int)PL_na; } OUTPUT T_dbtkeydatum OutputKey($arg, $var) T_dbtdatum OutputValue($arg, $var) T_PTROBJ sv_setref_pv($arg, dbtype, (void*)$var);