2 #################################### DBM SECTION
6 datum_key_copy T_DATUM_K
18 DBM_ckFilter($arg, filter_store_key, \"filter_store_key\");
21 $var.dptr = SvPVbyte($arg, len);
22 $var.dsize = (int)len;
28 if (db->filter_store_key) {
29 tmpSV = sv_2mortal(newSVsv($arg));
30 DBM_ckFilter(tmpSV, filter_store_key, \"filter_store_key\");
34 $var.dptr = SvPVbyte(tmpSV, len);
35 $var.dsize = (int)len;
38 DBM_ckFilter($arg, filter_store_value, \"filter_store_value\");
41 $var.dptr = SvPVbyte($arg, len);
42 $var.dsize = (int)len;
45 $var.dptr = (char *)\"\";
46 /* better would be for .dptr to be const char * */
51 output_datum(aTHX_ $arg, $var.dptr, $var.dsize);
52 DBM_ckFilter($arg, filter_fetch_key,\"filter_fetch_key\");
54 output_datum(aTHX_ $arg, $var.dptr, $var.dsize);
55 DBM_ckFilter($arg, filter_fetch_value,\"filter_fetch_value\");
57 sv_setref_pv($arg, dbtype, (void*)$var);