#

#################################### DBM SECTION

#

datum_key T_DATUM_K

datum_key_copy T_DATUM_K_C

datum_value T_DATUM_V

gdatum T_GDATUM

NDBM_File T_PTROBJ

GDBM_File T_PTROBJ

SDBM_File T_PTROBJ

ODBM_File T_PTROBJ

DB_File T_PTROBJ

DBZ_File T_PTROBJ

FATALFUNC T_OPAQUEPTR

INPUT

T_DATUM_K

DBM_ckFilter($arg, filter_store_key, \"filter_store_key\");

$var.dptr = SvPVbyte($arg, PL_na);

$var.dsize = (int)PL_na;

T_DATUM_K_C

{

SV * tmpSV ;

if (db->filter_store_key){

tmpSV = sv_2mortal(newSVsv($arg));

DBM_ckFilter(tmpSV, filter_store_key, \"filter_store_key\");

}

else

tmpSV = $arg;

$var.dptr = SvPVbyte(tmpSV, PL_na);

$var.dsize = (int)PL_na;

}

T_DATUM_V

DBM_ckFilter($arg, filter_store_value, \"filter_store_value\");

if (SvOK($arg)) {

$var.dptr = SvPVbyte($arg, PL_na);

$var.dsize = (int)PL_na;

}

else {

$var.dptr = \"\";

$var.dsize = 0;

}

T_GDATUM

UNIMPLEMENTED

OUTPUT

T_DATUM_K

sv_setpvn($arg, $var.dptr, $var.dsize);

DBM_ckFilter($arg, filter_fetch_key,\"filter_fetch_key\");

T_DATUM_V

sv_setpvn($arg, $var.dptr, $var.dsize);

DBM_ckFilter($arg, filter_fetch_value,\"filter_fetch_value\");

T_GDATUM

sv_usepvn($arg, $var.dptr, $var.dsize);