Function par_variable

src/gpre/par.cpp:3150–3215

//

static act* par_variable()
{
	// Since fortran is fussy about continuations and the like,
	// see if this variable token is the first thing in a statement.

	const bool first = gpreGlob.token_global.tok_first;
	gpre_ctx* context;
	gpre_fld* field = EXP_field(&context);

	gpre_fld* cast;
	bool dot = MSC_match(KW_DOT);
	if (dot && (cast = EXP_cast(field)))
	{
		field = cast;
		dot = MSC_match(KW_DOT);
	}

	bool is_null = false;
	if (dot && MSC_match(KW_NULL))
	{
		is_null = true;
		dot = false;
	}

	gpre_req* request = context->ctx_request;
	ref* reference = EXP_post_field(field, context, is_null);

	if (field->fld_array)
		EXP_post_array(reference);

	act* action = MSC_action(request, ACT_variable);

	if (first)
		action->act_flags |= ACT_first;
	if (dot)
		action->act_flags |= ACT_back_token;

	action->act_object = reference;

	if (!is_null)
		return action;

	// We've got a explicit null flag reference rather than a field
	// reference.  If there's already a null reference for the field,
	// use it; otherwise make one up.

	if (reference->ref_null)
	{
		action->act_object = reference->ref_null;
		return action;
	}

	// Check to see if the flag field has been allocated.  If not, sigh, allocate it

	ref* flag = MSC_reference(&request->req_references);
	flag->ref_context = reference->ref_context;
	flag->ref_field = PAR_null_field();
	flag->ref_level = request->req_level;