Method PreparseCatchClass

source/script.cpp:7713–7747

ResultType Script::PreparseCatchClass(Line *aLine)
{
	if (!aLine->mArgc || !aLine->mArg->length) // PreparseCatchVar() may have already set length to exclude " as output_var".
		return OK;
	IObject *prototype[MAX_ARGS - 1]; // Set an arbitrary limit to simplify the code; using MAX_ARGS to keep things consistent, -1 for the output var.
	int prototype_count = 0;
	for (LPTSTR cp = aLine->mArg->text, cp_end = cp + aLine->mArg->length; cp < cp_end; )
	{
		if (prototype_count)
		{
			if (*cp != g_delimiter)
				return aLine->LineError(ERR_EXPR_SYNTAX);
			if (prototype_count == _countof(prototype))
				return aLine->LineError(_T("Too many classes."));
			cp = omit_leading_whitespace(cp + 1);
		}
		LPTSTR end = cp;
		while (IS_IDENTIFIER_CHAR(*end) || *end == '.') ++end;
		LPTSTR next = omit_leading_whitespace(end);
		if (end == cp)
			return aLine->LineError(ERR_EXPR_SYNTAX);
		auto cls = FindClass(cp, end - cp);
		if (  !cls || !(prototype[prototype_count++] = cls->GetOwnPropObj(_T("Prototype")))  )
			return aLine->LineError(_T("Invalid class."), FAIL, cp);
		cp = next;
	}
	if (prototype_count) // Currently should always be non-zero due to the length check.
	{
		auto args = (CatchStatementArgs *)aLine->mAttribute;
		args->prototype = SimpleHeap::Alloc<IObject *>(prototype_count);
		args->prototype_count = prototype_count;
		memcpy(args->prototype, prototype, prototype_count * sizeof(IObject *));
	}
	return OK;
}