Function par_array

src/gpre/sql.cpp:5602–5644

//

static void par_array( gpre_fld* field)
{
	USHORT i = 0;

	// Pick up ranges

	ary* array_info = field->fld_array_info;

	while (true)
	{
		SLONG rangel = EXP_SSHORT_ordinal(true);
		SLONG rangeh;
		if (MSC_match(KW_COLON))
			rangeh = EXP_SSHORT_ordinal(true);
		else
		{
			if (rangel < 1)
				rangeh = 1;
			else
			{
				rangeh = rangel;
				rangel = 1;
			}
		}

		if (rangel >= rangeh)
			PAR_error("Start of array range must be less than end of range");

		if (i > MAX_ARRAY_DIMENSIONS)
			PAR_error("Array has too many dimensions");

		array_info->ary_rpt[i].ary_lower = rangel;
		array_info->ary_rpt[i++].ary_upper = rangeh;

		if (MSC_match(KW_R_BRCKET))
			break;

		if (!MSC_match(KW_COMMA))
			CPR_s_error(", (comma)");
	}

	array_info->ary_dimension_count = i;
}


//____________________________________________________________