Function act_procedure

src/gpre/sql.cpp:4002–4078

//

static act* act_procedure()
{
	gpre_req* request = MSC_request(REQ_procedure);
	par_options(&request->req_trans);

	SCHAR p_name[NAME_SIZE], db_name[NAME_SIZE], owner_name[NAME_SIZE];

	SQL_relation_name(p_name, db_name, owner_name);
	gpre_prc* procedure = SQL_procedure(request, p_name, db_name, owner_name, true);

	gpre_lls* values = NULL;

	SSHORT inputs = 0;
	if (gpreGlob.token_global.tok_keyword != KW_RETURNING_VALUES &&
		gpreGlob.token_global.tok_keyword != KW_SEMI_COLON)
	{
		// parse input references

		const bool paren = MSC_match(KW_LEFT_PAREN);
		gpre_fld* field = procedure->prc_inputs;
		ref** ref_ptr = &request->req_values;
		do {
			if (MSC_match(KW_NULL))
				MSC_push(MSC_node(nod_null, 0), &values);
			else
			{
				ref* reference = SQE_parameter(request);
				*ref_ptr = reference;
				reference->ref_field = field;
				MSC_push(MSC_unary(nod_value, (gpre_nod*) reference), &values);
				ref_ptr = &reference->ref_next;
			}
			if (field)
				field = field->fld_next;
			inputs++;
		} while (MSC_match(KW_COMMA));
		if (paren)
			EXP_match_paren();
	}

	SSHORT outputs = 0;
	if (MSC_match(KW_RETURNING_VALUES))
	{
		// parse output references

		const bool paren = MSC_match(KW_LEFT_PAREN);
		gpre_fld* field = procedure->prc_outputs;
		ref** ref_ptr = &request->req_references;
		do {
			ref* reference = (ref*) SQE_variable(request, false, NULL, NULL);
			*ref_ptr = reference;
			if ((reference->ref_field = field))
				field = field->fld_next;
			ref_ptr = &reference->ref_next;
			outputs++;
		} while (MSC_match(KW_COMMA));
		if (paren)
			EXP_match_paren();