Function par_select

src/gpre/sqe.cpp:2975–3030

//

static gpre_rse* par_select( gpre_req* request, gpre_rse* union_rse)
{
	assert_IS_REQ(request);

	// Handle FIRST and SKIP clauses
	gpre_nod* rse_first = NULL;
	if (MSC_match(KW_FIRST))
	{
		rse_first = MSC_node(nod_list, 1);
		rse_first->nod_arg[0] = SQE_value(request, false, NULL, NULL);
	}

	gpre_nod* rse_skip = NULL;
	if (MSC_match(KW_SKIP))
	{
		rse_skip = MSC_node(nod_list, 1);
		rse_skip->nod_arg[0] = SQE_value(request, false, NULL, NULL);
	}

	// Handle the ALL and DISTINCT options

	const bool distinct = (!MSC_match(KW_ALL) && MSC_match(KW_DISTINCT));

	// Make select list out of select items

	++request->req_in_select_list;
	gpre_nod* s_list = SQE_list(SQE_value_or_null, request, true);
	--request->req_in_select_list;

	// If this is not a declare cursor statement and an INTO list is present,
	// parse it.

	gpre_nod* into_list = NULL;
	if (!(request->req_flags & REQ_sql_declare_cursor))
	{
		into_list = MSC_match(KW_INTO) ? SQE_list(SQE_variable, request, false) : NULL;
	}

	gpre_rse* select = par_rse(request, s_list, distinct);

	if (rse_first)
		resolve_fields(rse_first, select);
	select->rse_sqlfirst = rse_first;

	if (rse_skip)
		resolve_fields(rse_skip, select);
	select->rse_sqlskip = rse_skip;

	if ((select->rse_into = into_list))
		select->rse_flags |= RSE_singleton;

	if (union_rse && s_list->nod_count != union_rse->rse_fields->nod_count)
		PAR_error("select lists for UNION don't match");

	return select;
}