Function normalize_index

src/gpre/exp.cpp:1019–1057

//

static gpre_nod* normalize_index( dim* dimension, gpre_nod* user_index, USHORT array_base)
{
	TEXT string[33];
	bool negate = false;

	switch (array_base)
	{
	case ZERO_BASED:
		if (dimension->dim_lower < 0)
			negate = true;
		sprintf(string, "%d", abs(dimension->dim_lower));
		break;

	case ONE_BASED:
		if (dimension->dim_lower - 1 < 0)
			negate = true;
		sprintf(string, "%d", abs(dimension->dim_lower - 1));
		break;

	default:
		return user_index;
	}

	ref* reference = (ref*) MSC_alloc(REF_LEN);
	char* tmp = (TEXT *) MSC_alloc(static_cast<int>(strlen(string)));
	reference->ref_value = tmp;
	strcpy(tmp, string);
	gpre_nod* adjustment_node = MSC_unary(nod_literal, (gpre_nod*) reference);

	gpre_nod* negate_node;
	if (negate)
		negate_node = MSC_unary(nod_negate, adjustment_node);
	else
		negate_node = adjustment_node;

	gpre_nod* index_node = MSC_binary(nod_plus, negate_node, user_index);

	return index_node;
}


//____________________________________________________________