Function gen_event_init

src/gpre/obj_cxx.cpp:2071–2123

//

static void gen_event_init( const act* action, int column)
{
	ObjectNotImplemented();
	const TEXT* pattern1 = "fb_%L1l = isc_event_block (&fb_%L1a, &fb_%L1b, (short) %N2";
	const TEXT* pattern2 = "isc_wait_for_event (%V1, &%DH, fb_%L1l, fb_%L1a, fb_%L1b);";
	const TEXT* pattern3 = "isc_event_counts (fb_events, fb_%L1l, fb_%L1a, fb_%L1b);";

	if (action->act_error)
		begin(column);
	begin(column);

	const gpre_nod* init = (gpre_nod*) action->act_object;
	const gpre_nod* event_list = init->nod_arg[1];

	PAT args;
	args.pat_database = (gpre_dbb*) init->nod_arg[3];
	args.pat_vector1 = status_vector(action);
	args.pat_long1 = (IPTR) init->nod_arg[2];
	args.pat_value2 = (int) event_list->nod_count;

	// generate call to dynamically generate event blocks

	PATTERN_expand((USHORT) column, pattern1, &args);

	TEXT variable[MAX_REF_SIZE];
	const gpre_nod* const* ptr = event_list->nod_arg;
	for (const gpre_nod* const* const end = ptr + event_list->nod_count; ptr < end; ptr++)
	{
		const gpre_nod* node = *ptr;
		if (node->nod_type == nod_field)
		{
			const ref* reference = (ref*) node->nod_arg[0];
			gen_name(variable, reference, true);
			printb(", %s", variable);
		}
		else
			printb(", %s", (TEXT* ) node->nod_arg[0]);
	}

	printb(");");

	// generate actual call to event_wait

	PATTERN_expand((USHORT) column, pattern2, &args);

	// get change in event counts, copying event parameter block for reuse

	PATTERN_expand((USHORT) column, pattern3, &args);

	if (action->act_error)
		endp(column);
	set_sqlcode(action, column);
}


//____________________________________________________________