Function par_for

src/gpre/par.cpp:2152–2213

//

static act* par_for()
{
	TEXT s[ERROR_LENGTH];
	gpre_sym* symbol = NULL;
	bool dup_symbol = false;

	tok& token = gpreGlob.token_global;

	if (token.tok_keyword != KW_FIRST && token.tok_keyword != KW_LEFT_PAREN)
	{
		if (token.tok_symbol)
			dup_symbol = true;

		symbol = MSC_symbol(SYM_cursor, token.tok_string, token.tok_length, 0);
		PAR_get_token();

		if (!MSC_match(KW_IN))
		{
			MSC_free(symbol);
			return NULL;
		}
		if (dup_symbol)
		{
			fb_utils::snprintf(s, sizeof(s), "symbol %s is already in use", token.tok_string);
			PAR_error(s);
		}

		const gpre_sym* temp = token.tok_symbol;
		if (temp && temp->sym_type == SYM_context)
			return par_open_blob(ACT_blob_for, symbol);
	}

	// Make up request block.  Since this might not be a database statement,
	// stay ready to back out if necessay.

	gpre_req* request = MSC_request(REQ_for);

	gpre_rse* rec_expr;
	if (!par_options(request, true) || !(rec_expr = EXP_rse(request, symbol)))
	{
		MSC_free_request(request);
		return NULL;
	}

	act* action = MSC_action(request, ACT_for);
	MSC_push((gpre_nod*) action, &cur_for);

	request->req_rse = rec_expr;
	gpre_ctx* context = rec_expr->rse_context[0];
	gpre_rel* relation = context->ctx_relation;
	request->req_database = relation->rel_database;

	gpre_ctx** ptr = rec_expr->rse_context;
	for (const gpre_ctx* const* const end = ptr + rec_expr->rse_count; ptr < end; ptr++)
	{
		context = *ptr;
		context->ctx_next = request->req_contexts;
		request->req_contexts = context;