Function par_native_value

src/gpre/exp.cpp:1305–1339

//

static gpre_nod* par_native_value( gpre_req* request, gpre_fld* field)
{
	TEXT s[64];

	// Special case literals

	if (gpreGlob.token_global.tok_type == tok_number ||
		gpreGlob.token_global.tok_type == tok_sglquoted ||
		(gpreGlob.token_global.tok_type == tok_dblquoted && gpreGlob.sw_sql_dialect == 1))
	{
		gpre_nod* anode = EXP_literal();
		return anode;
	}

	ref* reference = (ref*) MSC_alloc(REF_LEN);
	gpre_nod* node = MSC_unary(nod_value, (gpre_nod*) reference);

	// Handle general native value references.  Since these values will need
	// to be exported to the database system, make sure there is a reference
	// field.

	reference->ref_value = PAR_native_value(false, false);

	if (!field)
	{
		sprintf(s, "no reference field for %s", reference->ref_value);
		PAR_error(s);
	}

	reference->ref_next = request->req_values;
	request->req_values = reference;
	reference->ref_field = field;

	return node;
}


//____________________________________________________________