Method DefineFunc

source/script.cpp:5772–6100

}

ResultType Script::DefineFunc(LPTSTR aBuf, bool aStatic, bool aIsInExpression)
// Returns OK or FAIL.
// Caller has already called ValidateName() on the function, and it is known that this valid name
// is followed immediately by an open-paren.  aFuncExceptionVar is the address of an array on
// the caller's stack that will hold the list of exception variables (those that must be explicitly
// declared as either local or global) within the body of the function.
{
	LPTSTR param_end, param_start = _tcschr(aBuf, '('); // Caller has ensured that this will return non-NULL.
	int insert_pos;
	
	auto last_hotfunc = mLastHotFunc;
	if (last_hotfunc)
	{
		// This means we are defining a function under a "trigger::".
		// Then mLastHotFunc will not be used, instead all variants which have set it as its
		// mJumpLabel will replace it with the new function defined in this call.
		ASSERT(last_hotfunc == g->CurrentFunc);
		g->CurrentFunc =					// To avoid nesting the new function inside it.
			mLastHotFunc = nullptr;			// To avoid the next call AddLine demanding a ACT_BLOCK_BEGIN.										
	}

	bool is_method = mClassObjectCount && !g->CurrentFunc && !aIsInExpression;
	if (is_method) // Class method or property getter/setter.
	{
		Object *class_object = mClassObject[mClassObjectCount - 1];
		if (!aStatic)
			class_object = (Object *)class_object->GetOwnPropObj(_T("Prototype"));

		*param_start = '\0'; // Temporarily terminate, for simplicity.

		// Build the fully-qualified method name for A_ThisFunc and ListVars:
		// AddFunc() enforces a limit of MAX_VAR_NAME_LENGTH characters for function names, which is relied
		// on by FindFunc(), BIF_OnMessage() and perhaps others.  For simplicity, allow one extra char to be
		// printed and rely on AddFunc() detecting that the name is too long.
		TCHAR full_name[MAX_VAR_NAME_LENGTH + 1 + 1]; // Extra +1 for null terminator.
		_sntprintf(full_name, MAX_VAR_NAME_LENGTH + 1, aStatic ? _T("%s.%s") : _T("%s.Prototype.%s"), mClassName, aBuf);
		full_name[MAX_VAR_NAME_LENGTH + 1] = '\0'; // Must terminate at this exact point if _sntprintf hit the limit.
		
		*param_start = '('; // Undo temporary termination.

		// Below passes class_object for AddFunc() to store the func "by reference" in it:
		if (  !(g->CurrentFunc = AddFunc(full_name, -1, class_object))  )
			return FAIL;
	}
	else
	{
		// The value of g->CurrentFunc must be set here rather than by our caller since AddVar(), which we call,
		// relies upon it having been done.
		if (   !(g->CurrentFunc = AddFunc(aBuf, param_start - aBuf))   )
			return FAIL; // It already displayed the error.
	}

	auto &func = *g->CurrentFunc; // For performance and convenience.

	size_t param_length, value_length;
	FuncParam param[MAX_FUNCTION_PARAMS];
	int param_count = 0;
	TCHAR buf[LINE_SIZE], *target;