示例#1
0
CValue *GetVariable( CStr &var, BOOL create, int *position, BOOL local )
{
	int     pos, startPos;
	bool	oldStyle = false, reference = false, isPtr = false;
	CStr entryName;
	CMapStrToValue *map = NULL;
	CValue  *value;
	CValue *dummy;

	pos = 0;
	if ( !local )
	{
		if ( LocalVariables != NULL && LocalVariables->Lookup( L"%AUTOLOCAL%", dummy ) )
			local = TRUE;
	}

	// Skip spaces
	while ( pos < var.GetLength() && GetCharacterType( var[pos] ) == CInterpreter::CHAR_WHITESPACE ) pos++;
	
	if ( pos < var.GetLength() && var[pos] == L'%' )
	{
		oldStyle = true;
		pos++;
		while ( pos < var.GetLength() && GetCharacterType( var[pos] ) == CInterpreter::CHAR_WHITESPACE ) pos++;
	}
	
	if ( create && pos < var.GetLength() && var[pos] == L'[' )
	{
		reference = true;
		pos++;
		while ( pos < var.GetLength() && GetCharacterType( var[pos] ) == CInterpreter::CHAR_WHITESPACE ) pos++;
	}

	startPos = pos;
	// Skip all valid variable name characters
	while (    pos < var.GetLength()
		    && (   GetCharacterType( var[pos] ) == CInterpreter::CHAR_ALPHA
			    || GetCharacterType( var[pos] ) == CInterpreter::CHAR_DIGIT
				|| GetCharacterType( var[pos] ) == CInterpreter::CHAR_UNDERSCORE
				|| (var[pos] == L':' && (pos == startPos || pos == startPos + 1 ))
			)
		  ) pos++;
	// Skip Regex variable name characters
	if ((var[pos]==L'$') && (pos+1<var.GetLength())){
		if (   var[pos+1] == L'&' 
			|| var[pos+1] == L'`' 
			|| var[pos+1] == L'\'' 
			|| var[pos+1] == L'+' 
			|| var[pos+1] == L'_'
			)pos +=2;
		else{
			int i=0;
			for (i=1;i<=3;i++){
				if ( pos+i<var.GetLength() && var[pos+i] >=L'0' && var[pos+i]<=L'9') { /* do nothing */ }else break;
			}
			pos+=i;
		}
	}
	
	// Skip spaces
	while ( pos < var.GetLength() && GetCharacterType( var[pos] ) == CInterpreter::CHAR_WHITESPACE ) pos++;

	//jwz:add for Global Variable
	if (var[startPos]==L':' && var[startPos+1]==L':'){
		local = FALSE;
		startPos +=2;
	}

	// No array index?
	if ( pos == -1 || pos >= var.GetLength() || var[pos] != L'[' )
	{
		entryName = var;

		if ( pos != -1 && pos <= var.GetLength() )
			entryName = var.Mid( startPos, pos-startPos );


		entryName.TrimLeft();
		entryName.TrimRight();

		if ( position != NULL ) 
			*position = pos;

		if ( entryName.IsEmpty())
		{
			VarError = L"Empty variable name not allowed";
			if ( position != NULL ) *position = -1;
			return NULL;
		}

		entryName.MakeUpper();

		if ( local && LocalVariables != NULL && LocalVariables->Lookup( L"%GL_" + entryName + L"%", dummy ) ) //predefined GLOBAL declare variable
		{
			local = FALSE;
		}

		if ( local && LocalVariables != NULL && LocalVariables->Lookup( entryName, value ) ) {}
		else if ( local == FALSE && Variables.Lookup( entryName, value ) ) {}
		else
		{
			if ( create )
			{
				// MessageBox( NULL, L"%GL_" + entryName + L"%", L"Debug", MB_OK );
				if ( LocalVariables != NULL && local )
				{
					LocalVariables->SetAt( entryName, CValue() );
					LocalVariables->Lookup( entryName, value );
				}
				else
				{
					Variables.SetAt( entryName, CValue() );
					Variables.Lookup( entryName, value );
				}
			}
			else
				value = NULL;
		}
	}
	else
	{
		entryName = var.Mid( startPos, pos-startPos );
		entryName.TrimLeft(); entryName.TrimRight();
		entryName.MakeUpper();

		if ( entryName.IsEmpty() )
		{
			VarError = L"'[' without array name";
			if ( position != NULL ) *position = -1;
			value = NULL;
		}
		else
		{
			if ( local && LocalVariables != NULL && LocalVariables->Lookup( L"%GL_" + entryName + L"%", dummy ) )
			{
				local = FALSE;
			}

			if ( local && LocalVariables != NULL && LocalVariables->Lookup( entryName, value ) ) {}
			else if ( local == FALSE && Variables.Lookup( entryName, value ) ) {}
			else
			{
				if ( create )
				{
					if ( LocalVariables != NULL && local )
					{
						LocalVariables->SetAt( entryName, CValue() );
						LocalVariables->Lookup( entryName, value );
					}
					else
					{
						Variables.SetAt( entryName, CValue() );
						Variables.Lookup( entryName, value );
					}
				}
				else
					value = NULL;
			}

			if ( value != NULL )
				map = value->GetMap();

			while ( pos != -1 && pos < var.GetLength() && var[pos] == L'[' )
			{
				startPos = pos+1;
				CStr arrIdxExpr = var.Mid( startPos );
				CInterpreter parser;

				entryName = (LPCTSTR)parser.EvaluateExpression( arrIdxExpr, FALSE );

				if ( parser.GetError() != 0 )
				{
					VarError = parser.GetErrorMessage();
					if ( position != NULL ) *position = -1;
					value = NULL;
					break;
				}

				if ( entryName.IsEmpty() != 0 )
				{
					VarError = L"Array index is empty";
					if ( position != NULL ) *position = -1;
					value = NULL;
					break;
				}

				pos = startPos + parser.GetErrorPosition();
				if ( var[pos] != L']' )
				{
					VarError = L"Missing ']'";
					if ( position != NULL ) *position = -1;
					value = NULL;
					break;
				}

				if ( position != NULL ) *position = pos+1;
				while ( pos < var.GetLength() && parser.GetCharacterType( var[pos] ) == CInterpreter::CHAR_WHITESPACE ) pos++;

				entryName.MakeUpper();
				BOOL isArray = FALSE;
				if ( pos <= var.GetLength() && var[pos+1] == L'[' )
				{
					isArray = TRUE;
					pos++;
				}

				if ( value != NULL )
				{
					if ( map != NULL )
					{
						if ( map->Lookup( entryName, value ) == FALSE )
						{
							if ( create )
							{
								map->SetAt( entryName, CValue() );
								map->Lookup( entryName, value );
								if ( isArray )
									map = value->GetMap();
							}
							else
								value = NULL;
						}
						else
							if ( isArray ) map = value->GetMap();
					}
				}
			}
		}
	}

	if ( create && reference && value != NULL )
	{
		while ( pos < var.GetLength() && GetCharacterType( var[pos] ) == CInterpreter::CHAR_WHITESPACE ) pos++;
		if ( pos < var.GetLength() && var[pos] == L']' )
		{
			pos++;
			CStr referredVar = (CStr)*value;
			value = GetVariable( referredVar, create );
		}
		else
		{
			VarError = L"Missing ']'";
			pos = -1;
			if ( position != NULL ) *position = -1;
			value = NULL;
		}
	}

	if ( oldStyle && value != NULL )
	{
		while ( pos < var.GetLength() && GetCharacterType( var[pos] ) == CInterpreter::CHAR_WHITESPACE ) pos++;
		if ( pos < var.GetLength() && var[pos] == L'%' )
		{
			pos++;
			//CStr referredVar = (LPCTSTR)value;
			//value = GetVariable( referredVar, create );
		}
		else
		{
			VarError = L"Missing '%'";
			pos = -1;
			if ( position != NULL ) *position = -1;
			value = NULL;
		}
	}
	return value;
}