Function par_over

src/gpre/exp.cpp:1372–1401

//

static gpre_nod* par_over( gpre_ctx* context)
{
	TEXT s[64];

	gpre_nod* boolean = NULL;

	do {
		gpre_nod* field1 = lookup_field(context);
		if (!field1)
		{
			fb_utils::snprintf(s, sizeof(s), "OVER field %s undefined", gpreGlob.token_global.tok_string);
			PAR_error(s);
		}
		gpre_nod* field2 = NULL;
		for (gpre_ctx* next = context->ctx_next; next; next = next->ctx_next)
		{
			if (field2 = lookup_field(next))
				break;
		}
		if (!field2)
		{
			fb_utils::snprintf(s, sizeof(s), "OVER field %s undefined", gpreGlob.token_global.tok_string);
			PAR_error(s);
		}
		boolean = make_and(boolean, MSC_binary(nod_eq, field1, field2));
		PAR_get_token();
	} while (MSC_match(KW_COMMA));

	return boolean;
}


//____________________________________________________________