Method PreparseCatchVar

source/script.cpp:7675–7709

ResultType Script::PreparseCatchVar(Line *aLine)
{
	if (!aLine->mArgc)
		return OK;
	auto args = SimpleHeap::Alloc<CatchStatementArgs>();
	args->output_var = nullptr;
	args->prototype = nullptr;
	args->prototype_count = 0;
	aLine->mAttribute = args;
	LPTSTR cp = aLine->mArg->text + aLine->mArg->length;
	for (LPTSTR min_space_position = aLine->mArg->text + 2;;)
	{
		--cp;
		if (cp < min_space_position)
			return OK;
		if (IS_SPACE_OR_TAB(*cp))
			break;
		if (!IS_IDENTIFIER_CHAR(*cp))
			//return *cp == '.' ? OK : aLine->LineError(ERR_EXPR_SYNTAX);
			return OK; // Leave error reporting to PreparseCatchClass().
	}
	LPTSTR var_name = cp + 1;
	cp = omit_trailing_whitespace(aLine->mArg->text + 1, cp);
	if (ctolower(*cp) == 's' && ctolower(cp[-1]) == 'a' && (cp - 1 == aLine->mArg->text || IS_SPACE_OR_TAB(cp[-2])))
	{
		Var *var;
		if (  !(var = FindOrAddVar(var_name, 0, FINDVAR_FOR_WRITE))
			|| !aLine->ValidateVarUsage(var, Script::VARREF_OUTPUT_VAR)  )
			return FAIL;
		var->MarkAssignedSomewhere();
		args->output_var = var;
		aLine->mArg->length = ArgLengthType((cp - 1) - aLine->mArg->text);
	}
	return OK;
}