Function gen_get_or_put_slice

src/gpre/c_cxx.cpp:2396–2437

//

static void gen_get_or_put_slice(const act* action, const ref* reference, bool get, int column)
{
	const TEXT* pattern1 =
		"isc_get_slice (%V1, &%DH, &%RT, &%S2, (short) %N1, (char*) %S3, 0, (%S6*) 0, (%S6) %L1, %S5, &isc_array_length);";
	const TEXT* pattern2 =
		"isc_put_slice (%V1, &%DH, &%RT, &%S2, (short) %N1, (char*) %S3, 0, (%S6*) 0, (%S6) %L1, (void*) %S5);";

	if (!(reference->ref_flags & REF_fetch_array))
		return;

	TEXT s1[MAX_REF_SIZE], s2[MAX_REF_SIZE];
	PAT args;
	args.pat_request = action->act_request;
	args.pat_condition = get;	// get or put slice
	args.pat_vector1 = status_vector(action);	// status vector
	args.pat_database = action->act_request->req_database;	// database handle
	gen_name(s1, reference, true);	// blob handle
	args.pat_string2 = s1;
	args.pat_value1 = reference->ref_sdl_length;	// slice description length
	sprintf(s2, "isc_%d", reference->ref_sdl_ident);	// slice description
	args.pat_string3 = s2;

	args.pat_long1 = reference->ref_field->fld_array_info->ary_size;
	// slice size

	TEXT s4[MAX_REF_SIZE];
	if (action->act_flags & ACT_sql)
		args.pat_string5 = reference->ref_value;
	else
	{
		sprintf(s4, "isc_%d", reference->ref_field->fld_array_info->ary_ident);
		args.pat_string5 = s4;	// array name
	}

	args.pat_string6 = DCL_LONG;

	PATTERN_expand((USHORT) column, get ? pattern1 : pattern2, &args);

	set_sqlcode(action, column);
	if (action->act_flags & ACT_sql)
		gen_whenever(action->act_whenever, column);
}


//____________________________________________________________