Method EvaluateSwitchCase

source/script.cpp:10614–10653

ResultType Line::EvaluateSwitchCase(ExprTokenType &aSwitch, SymbolType aSwitchIsNumeric, ExprTokenType &aCase, StringCaseSenseType aStringCaseSense)
// Performs comparison of two tokens for Switch().
{
	SymbolType case_is_numeric = PURE_NOT_NUMERIC;
	if (aStringCaseSense == SCS_INVALID)
	{
		// Perform numeric comparison if both aSwitch and aCase are numeric and at least one
		// is pure numeric, not a string.  This should match the behaviour of SYM_EQUALCASE.
		if (aSwitchIsNumeric && !(aSwitch.symbol == SYM_STRING && aCase.symbol == SYM_STRING))
			case_is_numeric = TokenIsNumeric(aCase);
		//else no need to call TokenIsNumeric(); just leave case_is_numeric set to its default
		// value so that string comparison will be used.
	}
	else // Since CaseSense was specified, unconditionally use string comparison.
	{
		if (aCase.symbol == SYM_OBJECT)
			return ResultToken().TypeError(_T("String"), aCase);
		// Caller has unconditionally set aSwitchIsNumeric to PURE_NOT_NUMERIC in this case,
		// and has already verified aSwitch.symbol != SYM_OBJECT.
	}
	bool equal;
	if (aSwitch.symbol == SYM_OBJECT || aCase.symbol == SYM_OBJECT)
		equal = aSwitch.symbol == aCase.symbol && aSwitch.object == aCase.object;
	else if (!case_is_numeric)
	{
		TCHAR left_buf[MAX_NUMBER_SIZE], *left_string = TokenToString(aSwitch, left_buf);
		TCHAR right_buf[MAX_NUMBER_SIZE], *right_string = TokenToString(aCase, right_buf);
		switch (aStringCaseSense)
		{
		case SCS_INSENSITIVE:			equal = !_tcsicmp(left_string, right_string); break;
		case SCS_INSENSITIVE_LOCALE:	equal = !lstrcmpi(left_string, right_string); break;
		default:						equal = !_tcscmp(left_string, right_string); break;
		}
	}
	else if (aSwitchIsNumeric == PURE_INTEGER && case_is_numeric == PURE_INTEGER)
		equal = TokenToInt64(aSwitch) == TokenToInt64(aCase);
	else
		equal = TokenToDouble(aSwitch) == TokenToDouble(aCase);
	return equal ? CONDITION_TRUE : CONDITION_FALSE;
}