Method DefineClassVars

source/script.cpp:6352–6460

ResultType Script::DefineClassVars(LPTSTR aBuf, bool aStatic)
{
	Object *class_object = mClassObject[mClassObjectCount - 1];
	if (!aStatic)
		class_object = (Object *)class_object->GetOwnPropObj(_T("Prototype"));

	LPTSTR item, item_end;
	TCHAR orig_char, buf[LINE_SIZE];
	size_t buf_used = 0;
	ExprTokenType empty_token(_T(""), 0);
	empty_token.symbol = SYM_MISSING;

	for (item = omit_leading_whitespace(aBuf); *item;) // FOR EACH COMMA-SEPARATED ITEM IN THE DECLARATION LIST.
	{
		item_end = find_identifier_end(item);
		if (item_end == item)
			return ScriptError(ERR_INVALID_CLASS_VAR, item);
		orig_char = *item_end;
		*item_end = '\0'; // Temporarily terminate.
		ExprTokenType existing;
		auto item_exists = class_object->GetOwnPropType(item);
		bool item_name_has_dot = (orig_char == '.');
		if (item_name_has_dot)
		{
			*item_end = orig_char; // Undo termination.
			// This is something like "object.key := 5", which is only valid if "object" was
			// previously declared (and will presumably be assigned an object at runtime).
			// Ensure that at least the root class var exists; any further validation would
			// be impossible since the object doesn't exist yet.
			if (item_exists == Object::PropType::None)
				return ScriptError(_T("Unknown class var."), item);
			for (TCHAR *cp; *item_end == '.'; item_end = cp)
			{
				for (cp = item_end + 1; IS_IDENTIFIER_CHAR(*cp); ++cp);
				if (cp == item_end + 1)
					// This '.' wasn't followed by a valid identifier.  Leave item_end
					// pointing at '.' and allow the switch() below to report the error.
					break;
			}
		}
		else
		{
			switch (item_exists)
			{
			case Object::PropType::Value:
			case Object::PropType::Object: // Prototype or nested class.
				return ScriptError(ERR_DUPLICATE_DECLARATION, item);
			case Object::PropType::None:
				// Assign class_object[item] := "" to mark it as a value property
				// and allow duplicate declarations to be detected:
				if (!class_object->SetOwnProp(item, empty_token))
					return ScriptError(ERR_OUTOFMEM);
			// But for PropType::Dynamic, we want this line to assign to the property, so don't overwrite it.
			}
			*item_end = orig_char; // Undo termination.
		}
		size_t name_length = item_end - item;