Function par_relational

src/gpre/exp.cpp:1464–1571

//

static gpre_nod* par_relational( gpre_req* request)
{
	if (MSC_match(KW_ANY))
	{
		gpre_nod* expr = MSC_node(nod_any, 1);
		expr->nod_count = 0;
		expr->nod_arg[0] = (gpre_nod*) EXP_rse(request, 0);
		EXP_rse_cleanup((gpre_rse*) expr->nod_arg[0]);
		return expr;
	}

	if (MSC_match(KW_UNIQUE))
	{
		gpre_nod* expr = MSC_node(nod_unique, 1);
		expr->nod_count = 0;
		expr->nod_arg[0] = (gpre_nod*) EXP_rse(request, 0);
		EXP_rse_cleanup((gpre_rse*) expr->nod_arg[0]);
		return expr;
	}

	// That's right, three pointer dereferences to get to the reference
	// structure if there's a UDF.  V3 bug#531.  MaryAnn  12/4/89

	gpre_nod* expr1 = par_udf(request, UDF_value, 0);
	ref* reference;
	if (expr1)
		reference = (ref*) (expr1->nod_arg[0]->nod_arg[0]->nod_arg[0]);
	else
	{
		expr1 = par_field(request);
		reference = (ref*) expr1->nod_arg[0];
	}

	gpre_fld* field = reference->ref_field;

	// Check for any of the binary guys

	const bool negation = MSC_match(KW_NOT);

	const rel_ops* relop;
	for (relop = relops;; relop++)
	{
		if (relop->rel_kw == KW_none)
			CPR_s_error("relational operator");
		else if (MSC_match(relop->rel_kw))
			break;
	}

	gpre_nod* expr = NULL;
	gpre_nod* expr2 = NULL;
	switch (relop->rel_kw)
	{
	case KW_STARTING:
		MSC_match(KW_WITH);
		expr = MSC_node(relop->rel_op, relop->rel_args);
		break;
	case KW_MATCHES:
		expr2 = par_value(request, field);