Method Invoke

source/script_object.cpp:504–739

LPTSTR Object::sMetaFuncName[] = { _T("__Get"), _T("__Set"), _T("__Call") };

ResultType Object::Invoke(IObject_Invoke_PARAMS_DECL)
{
	// In debug mode, verify aResultToken has been initialized correctly.
	ASSERT(aResultToken.symbol == SYM_STRING && aResultToken.marker && !*aResultToken.marker);
	ASSERT(aResultToken.Result() == OK);

	name_t name;
	if (!aName)
	{
		name = IS_INVOKE_CALL ? _T("Call") : _T("__Item");
		aFlags |= IF_BYPASS_METAFUNC;
	}
	else
		name = aName;

	auto actual_param = aParam; // Actual first parameter between [] or ().
	int actual_param_count = aParamCount; // Actual number of parameters between [] or ().

	bool hasprop = false; // Whether any kind of property was found.
	bool setting = IS_INVOKE_SET;
	bool calling = IS_INVOKE_CALL;
	bool handle_params_recursively = calling;
	ResultToken token_for_recursion;
	IObject *etter = nullptr, *method = nullptr;
	Variant *field = nullptr;
	index_t insert_pos, other_pos;
	Object *that;

	if (setting)
	{
		// Due to the way expression parsing works, the result should never be negative
		// (and any direct callers of Invoke must always pass aParamCount >= 1):
		ASSERT(actual_param_count > 0);
		--actual_param_count;
	}

	for (that = this; that; that = that->mBase)
	{
		// Search each object from this to its most distance base, but set insert_pos only when
		// searching this object, since it needs to be the position we can insert a new field at.
		field = that->FindField(name, that == this ? insert_pos : other_pos);
		if (!field) // 'that' has no own property.
			continue;
		if (field->symbol != SYM_DYNAMIC) // 'that' has a value property.
		{
			if (hasprop && setting)
				// This value property has been overridden with a getter, but no setter.
				// Treat it as read-only rather than allowing the getter to implicitly be overridden.
				field = nullptr;
			hasprop = true;
			// This value property takes precedence over any getter, setter or method defined in a base.
			break;
		}
		hasprop = true;
		// Since above did not break or continue, 'that' has a dynamic property.
		if (calling)
		{
			if (method = field->prop->Method())