Function SQE_post_reference

src/gpre/sqe.cpp:868–917

//

ref* SQE_post_reference(gpre_req* request, gpre_fld* field, gpre_ctx* context, gpre_nod* node)
{
	ref* reference;

	assert_IS_REQ(request);
	assert_IS_NOD(node);

	// If the beast is already a field reference, get component parts

	if (node && node->nod_type == nod_field)
	{
		reference = (ref*) node->nod_arg[0];
		field = reference->ref_field;
		context = reference->ref_context;
	}

	// See if there is already a reference to this guy.  If so, return it.

	for (reference = request->req_references; reference; reference = reference->ref_next)
	{
		if ((reference->ref_expr && compare_expr(node, reference->ref_expr)) ||
			(!reference->ref_expr && field == reference->ref_field &&
				context == reference->ref_context))
		{
			return reference;
		}
	}

	// If there isn't a field given, make one up

	if (!field)
	{
		field = (gpre_fld*) MSC_alloc(FLD_LEN);
		CME_get_dtype(node, field);
		if (field->fld_dtype && (field->fld_dtype <= dtype_any_text))
			field->fld_flags |= FLD_text;
	}

	// No reference -- make one

	reference = (ref*) MSC_alloc(REF_LEN);
	reference->ref_context = context;
	reference->ref_field = field;
	reference->ref_expr = node;

	reference->ref_next = request->req_references;
	request->req_references = reference;

	return reference;
}


//____________________________________________________________