Method FindClass

source/script.cpp:6531–6578

Object *Script::FindClass(LPCTSTR aClassName, size_t aClassNameLength)
{
	if (!aClassNameLength)
		aClassNameLength = _tcslen(aClassName);
	if (!aClassNameLength || aClassNameLength > MAX_CLASS_NAME_LENGTH)
		return NULL;

	LPTSTR cp, key;
	ExprTokenType token;
	Object *base_object = NULL;
	TCHAR class_name[MAX_CLASS_NAME_LENGTH + 2]; // Extra +1 for '.' to simplify parsing.
	
	// Make temporary copy which we can modify.
	tmemcpy(class_name, aClassName, aClassNameLength);
	class_name[aClassNameLength] = '.'; // To simplify parsing.
	class_name[aClassNameLength + 1] = '\0';

	// Get base variable; e.g. "MyClass" in "MyClass.MySubClass".
	cp = _tcschr(class_name + 1, '.');
	// To reserve for possible future use with local classes, resolve the class variable according
	// to the current scope (which is always global for class..extends, but often local for Catch).
	// This also avoids confusion due to inconsistency between `catch x` and other references to x.
	Var *base_var = FindVar(class_name, cp - class_name);
	if (!base_var)
		return NULL;

	// Although at load time only the "Object" type can exist, dynamic_cast is used in case we're called at run-time:
	if (  !(base_var->IsObject() && (base_object = dynamic_cast<Object *>(base_var->Object()))
		&& base_object->IsDerivedFrom(Object::sClassPrototype))  ) // Rule out something silly like "class x extends MsgBox".
		return NULL;

	// Even if the loop below has no iterations, it initializes 'key' to the appropriate value:
	for (key = cp + 1; cp = _tcschr(key, '.'); key = cp + 1) // For each key in something like TypeVar.Key1.Key2.
	{
		if (cp == key)
			return NULL; // ScriptError(_T("Missing name."), cp);
		*cp = '\0'; // Terminate at the delimiting dot.
		// Invoking at this stage isn't safe since aClassName could include the name of a
		// user-defined property getter, or the class might implement __Get, and the script
		// isn't necessarily ready to execute.  Get it this way instead:
		auto getter = dynamic_cast<BuiltInFunc*>(base_object->GetOwnPropGetter(key));
		if (!getter || getter->mBIF != Class_GetNestedClass)
			return NULL;
		base_object = ((NestedClassInfo*)getter->mData)->class_object;
	}

	return base_object;
}


Object *Object::GetUnresolvedClass(LPTSTR &aName)