Method DefineClass

source/script.cpp:6104–6256

ResultType Script::DefineClass(LPTSTR aBuf)
{
	if (mClassObjectCount == MAX_NESTED_CLASSES)
		return ScriptError(_T("This class definition is nested too deep."), aBuf);

	LPTSTR cp, class_name = aBuf, base_class_name = nullptr;
	Object *outer_class, *base_class = Object::sClass, *base_prototype = Object::sPrototype;
	Var *class_var;
	ExprTokenType token;

	for (cp = aBuf; *cp && !IS_SPACE_OR_TAB(*cp); ++cp);
	size_t class_name_length = cp - aBuf;
	if (*cp)
	{
		*cp = '\0'; // Null-terminate here for class_name.
		cp = omit_leading_whitespace(cp + 1);
		if (_tcsnicmp(cp, _T("extends"), 7) || !IS_SPACE_OR_TAB(cp[7]))
			return ScriptError(_T("Syntax error in class definition."), cp);
		base_class_name = omit_leading_whitespace(cp + 8);
		if (!*base_class_name)
			return ScriptError(_T("Missing class name."), cp);
		base_class = FindClass(base_class_name);
		if (!base_class)
		{
			// This class hasn't been defined yet, but it might be.  Automatically create the
			// class, but store it in the "unresolved" list.  When its definition is encountered,
			// it will be removed from the list.  If any classes remain in the list when the end
			// of the script is reached, an error will be thrown.
			if (mUnresolvedClasses)
				base_class = (Object *)mUnresolvedClasses->GetOwnPropObj(base_class_name);
			else
				mUnresolvedClasses = Object::Create();
			if (!base_class)
			{
				if (   !(base_prototype = Object::CreatePrototype(base_class_name))
					|| !(base_class = Object::CreateClass(base_prototype))
					// This property will be removed when the class definition is encountered:
					|| !base_class->SetOwnProp(_T("Line"), ((__int64)mCurrFileIndex << 32) | mCombinedLineNumber)
					|| !mUnresolvedClasses->SetOwnProp(base_class_name, base_class)  )
					return ScriptError(ERR_OUTOFMEM);
			}
		}
		base_prototype = (Object *)base_class->GetOwnPropObj(_T("Prototype"));
	}

	// Validate the name even if this is a nested definition, for consistency.
	if (!Var::ValidateName(class_name, DISPLAY_CLASS_ERROR))
		return FAIL;

	Object *&class_object = mClassObject[mClassObjectCount]; // For convenience.
	class_object = nullptr;
	bool conflict_found = false;
	
	if (mClassObjectCount) // Nested class definition.
	{
		outer_class = mClassObject[mClassObjectCount - 1];
		if (outer_class->GetOwnProp(token, class_name))
		{