perl5.git.perl.org Git - perl5.git/blame_incremental

... / ...

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