Function par_primitive_value

src/gpre/exp.cpp:1410–1456

//

static gpre_nod* par_primitive_value( gpre_req* request, gpre_fld* field)
{
	if (MSC_match(KW_MINUS))
		return MSC_unary(nod_negate, par_primitive_value(request, field));

	if (MSC_match(KW_LEFT_PAREN))
	{
		gpre_nod* node = par_value(request, field);
		EXP_match_paren();
		return node;
	}

	if (MSC_match(KW_UPPERCASE))
	{
		gpre_nod* node = MSC_node(nod_upcase, 1);
		gpre_nod* sub = par_primitive_value(request, field);
		node->nod_arg[0] = sub;
		return node;
	}

	if (MSC_match(KW_USER_NAME))
		return MSC_node(nod_user_name, 0);

	if (MSC_match(KW_NULLIF))
	{
		gpre_nod* node = MSC_node(nod_nullif, 2);
		EXP_left_paren(0);
		node->nod_arg[0] = par_value(request, field);
		if (!MSC_match(KW_COMMA))
			CPR_s_error("<comma>");
		node->nod_arg[1] = par_value(request, field);
		EXP_match_paren();
		return node;
	}

	// Check for user defined functions

	gpre_nod* node = par_udf(request, UDF_value, field);
	if (node)
		return node;

	const gpre_sym* symbol = gpreGlob.token_global.tok_symbol;
	if (!symbol || symbol->sym_type != SYM_context)
		return par_native_value(request, field);

	return par_field(request);
}


//____________________________________________________________