Function IsClassDefinition

source/script.cpp:1653–1663

inline LPTSTR IsClassDefinition(LPTSTR aBuf)
{
	if (_tcsnicmp(aBuf, _T("Class"), 5) || !IS_SPACE_OR_TAB(aBuf[5])) // i.e. it's not "Class" followed by a space or tab.
		return NULL;
	LPTSTR class_name = omit_leading_whitespace(aBuf + 6);
	if (_tcschr(EXPR_ALL_SYMBOLS, *class_name))
		// It's probably something like "Class := GetClass()".
		return NULL;
	// Validation of the name is left up to the caller, for simplicity.
	return class_name;
}