#

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

#

datum_key T_DATUM_K

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

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

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

$var.dsize = (int)PL_na;

T_DATUM_V

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

if (SvOK($arg)) {

$var.dptr = SvPV($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);

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

T_DATUM_V

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

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

T_GDATUM

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

T_PTROBJ

sv_setref_pv($arg, dbtype, (void*)$var);