Simple command parser?

//! internal commandclass internal_cmd {public:	std::string	m_name;	int		m_flags;	virtual	void desc () = 0;	virtual	char* desc_short () = 0;	virtual	int callback (char*) = 0;};

BOOL CThunderCommandMap::ExecuteScript(LPCWSTR pszText, LPCWSTR pszLabel){	int nLabelLen = (pszLabel && *pszLabel) ? wcslen(pszLabel) : 0;	while(pszText)	{		// Skip any white space and comments		while(EatWhiteSpaceNewline(&pszText) || EatComment(&pszText));		// If we're out of text, break out		if(!*pszText) break;		// Execute the current statement		if(nLabelLen)		{			// If looking for label and we found it, mark it as found			if(*pszText == L':' && !wcsncmp(pszText + 1, pszLabel, nLabelLen))				nLabelLen = 0;		}		else		{			if(*pszText != L':')			{				// Ignore all labels when we are not looking for one				if(!wcsncmp(L"return", pszText, 6))				{					// This is a return statement - return immediately					break;				}				else				{					// This is a command call or a variable get/set					ExecuteStatement(pszText);				}			}		}		// Go to the next line		pszText = wcschr(pszText, L'\n');	}	return TRUE;}int CThunderCommandMap::ExecuteStatement(LPCWSTR pszLine){	// Echo this action if so specified	if(m_rEngine.GetOption(THU_OPTION_ENABLEECHO))	{		LPCWSTR pszEndLine = wcschr(pszLine, L'\n');				if(!pszEndLine)		{			pszEndLine = pszLine + wcslen(pszLine);		}		else		{			if(L'\r' == *pszEndLine) pszEndLine--;		}		if(L'\n' == *pszEndLine) pszEndLine--;		int nLineLen = pszEndLine - pszLine;		CThunderString strEcho;		if(!strEcho.Allocate(nLineLen))		{			m_rEngine.GetErrors().Push(THU_ERR_MEMALLOC, __FUNCTIONW__, nLineLen);			return -1;		}		strEcho.CopyToBuffer(nLineLen, pszLine, nLineLen);		m_rEngine.Print(strEcho, THU_PRINT_ECHO);	}	// Find the end of name string	LPCWSTR pszNameEnd = pszLine;	while(IsValidNameChar(*pszNameEnd)) pszNameEnd++;	// Copy the name string		int nNameLen = pszNameEnd - pszLine;	// If name string length is invalid, exit	if(!nNameLen) return -1;	CThunderString strName;		if(!strName.Allocate(nNameLen))	{		m_rEngine.GetErrors().Push(THU_ERR_MEMALLOC, __FUNCTIONW__, nNameLen);		return -1;	}	strName.CopyToBuffer(nNameLen, pszLine, nNameLen);	// Start looking for the first param after the end of name string	LPCWSTR pszFirstParam = pszNameEnd;	// If what follows is end of string, execute command without params and exit	if(!*pszFirstParam) return ExecuteStatement(strName, NULL);	// Otherwise, skip any white space	EatWhiteSpace(&pszFirstParam);	// If we encounter a comment, execute command without params and exit	if(EatComment(&pszFirstParam)) return ExecuteStatement(strName, NULL);	// Execute with this name and the parameter string	return ExecuteStatement(strName, pszFirstParam);}int CThunderCommandMap::ExecuteStatement(LPCWSTR pszName, LPCWSTR pszParams){	// First, find a command by this name	CThunderCommand* pCmd = Find(pszName);		if(pCmd)	{		// Execute command if found		return pCmd->Execute(m_rEngine, pszParams);	}	else	{		// If can't find the command, try to find a global (engine) variable		CThunderVariable* pVar = m_rEngine.GetVariables().Find(pszName);		if(pszParams)		{			// If variable is not found in global scope, try searching current map			if(!pVar && m_rEngine.GetCurrentMapConst())			{				pVar = m_rEngine.GetCurrentMap()->GetVariables().Find(pszName);			}			// If variable is not found and parameters are specified, create and set a global one from parameters			if(!pVar)			{				pVar = m_rEngine.GetVariables().Add(pszName, THU_VAR_UNDEFINED);				if(!pVar) return -1;			}			pVar->FromString(pszParams);		}		else		{			// If variable not found and no parameters specified, exit with failure			if(!pVar)			{				m_rEngine.Print(L"variable or command not found.", THU_PRINT_ERROR);				return -1;			}			// If variable is found, print its value			CThunderString str;			pVar->ToString(str);			m_rEngine.Print(str);		}	}	return 0;}int CThunderCommand::Execute(CThunderEngine& rEngine, LPCWSTR pszParams){	vector<CThunderVariable> arParams;	// If no params, just execute without them	if(!pszParams) return (*m_pfnCallback)(rEngine, arParams);	// Allow 8 params before having to resize		arParams.reserve(8);	// Start reading parameters	for(;;)	{		// Attempt to read this param		CThunderVariable varCurParam;		int nReadLen = varCurParam.FromString(pszParams);		// If invalid, stop reading params		if(!nReadLen) break;		// Otherwise, add this param to the param list		arParams.push_back(varCurParam);		// Skip the data for the param just read		pszParams += nReadLen;		// Skip any white space		EatWhiteSpace(&pszParams);		// Examine what follows		if(L',' == *pszParams)		{			// If parameter separator follows, skip it and any space that follows			pszParams++;			EatWhiteSpace(&pszParams);		}		else if(L'\r' == *pszParams || L'\n' == *pszParams)		{			// If this is the end of line, break out			break;		}		else if(L'\0' == *pszParams)		{			// If this is the end of string, break out			break;		}		else if(EatComment(&pszParams))		{			// If this is a comment, break out						 break;		}	}	// Call the command	return (*m_pfnCallback)(rEngine, arParams);}