1# 2#################################### DBM SECTION 3# 4 5datum_key T_DATUM_K 6datum_value T_DATUM_V 7gdatum T_GDATUM 8NDBM_File T_PTROBJ 9GDBM_File T_PTROBJ 10SDBM_File T_PTROBJ 11ODBM_File T_PTROBJ 12DB_File T_PTROBJ 13DBZ_File T_PTROBJ 14FATALFUNC T_OPAQUEPTR 15 16INPUT 17T_DATUM_K 18 DBM_ckFilter($arg, filter_store_key, \"filter_store_key\"); 19 $var.dptr = SvPVbyte($arg, PL_na); 20 $var.dsize = (int)PL_na; 21T_DATUM_V 22 DBM_ckFilter($arg, filter_store_value, \"filter_store_value\"); 23 if (SvOK($arg)) { 24 $var.dptr = SvPVbyte($arg, PL_na); 25 $var.dsize = (int)PL_na; 26 } 27 else { 28 $var.dptr = \"\"; 29 $var.dsize = 0; 30 } 31T_GDATUM 32 UNIMPLEMENTED 33OUTPUT 34T_DATUM_K 35 sv_setpvn($arg, $var.dptr, $var.dsize); 36 DBM_ckFilter($arg, filter_fetch_key,\"filter_fetch_key\"); 37T_DATUM_V 38 sv_setpvn($arg, $var.dptr, $var.dsize); 39 DBM_ckFilter($arg, filter_fetch_value,\"filter_fetch_value\"); 40T_GDATUM 41 sv_usepvn($arg, $var.dptr, $var.dsize); 42T_PTROBJ 43 sv_setref_pv($arg, dbtype, (void*)$var); 44