Function PAR_event_init

src/gpre/par.cpp:729–807

//

act* PAR_event_init(bool sql)
{
	//char req_name[128];

	// make up statement node

	SQL_resolve_identifier("<identifier>", NULL, MAX_EVENT_SIZE);
	//SQL_resolve_identifier("<identifier>", req_name, sizeof(req_name));
	//strcpy(gpreGlob.token_global.tok_string, req_name); Why? It's already done.
	gpre_nod* init = MSC_node(nod_event_init, 4);
	init->nod_arg[0] = (gpre_nod*) PAR_symbol(SYM_dummy);
	init->nod_arg[3] = (gpre_nod*) gpreGlob.isc_databases;

	act* action = MSC_action(0, ACT_event_init);
	action->act_object = (ref*) init;

	// parse optional database handle

	if (!MSC_match(KW_LEFT_PAREN))
	{
		gpre_sym* symbol = gpreGlob.token_global.tok_symbol;
		if (symbol && (symbol->sym_type == SYM_database))
			init->nod_arg[3] = (gpre_nod*) symbol->sym_object;
		else
			CPR_s_error("left parenthesis or database handle");

		PAR_get_token();
		if (!MSC_match(KW_LEFT_PAREN))
			CPR_s_error("left parenthesis");
	}

	// eat any number of event strings until a right paren is found,
	// pushing the gpreGlob.events onto a stack

	gpre_nod* node;
	gpre_lls* stack = NULL;
	int count = 0;

	while (true)
	{
		if (MSC_match(KW_RIGHT_PAREN))
			break;

		const gpre_sym* symbol;
		if (!sql && (symbol = gpreGlob.token_global.tok_symbol) && symbol->sym_type == SYM_context)
		{
			gpre_ctx* context;
			gpre_fld* field = EXP_field(&context);
			ref* reference = EXP_post_field(field, context, false);
			node = MSC_node(nod_field, 1);
			node->nod_arg[0] = (gpre_nod*) reference;
		}
		else
		{
			node = MSC_node(nod_null, 1);
			if (sql)
				node->nod_arg[0] = (gpre_nod*) SQL_var_or_string(false);
			else