1 files changed, 118 insertions, 1 deletions

diff --git a/src/gamestate.cpp b/src/gamestate.cpp
index e2ab61a..852926e 100644
--- a/src/gamestate.cpp
+++ b/src/gamestate.cpp
@@ -39,6 +39,21 @@ Gats::Object *GameState::toGats() const
         return pRoot;
 }
 
+void GameState::fromGats( Gats::Dictionary *pRoot )
+{
+        sPrompt = pRoot->getStr("curPrompt");
+        sCurSituation = pRoot->getStr("curSituation");
+        gatsToScope( pRoot->getDict("global"), &sGlobal );
+        gatsToScope( pRoot->getDict("player"), &sPlayer );
+        for( Gats::Dictionary::iterator i = pRoot->getDict("situations")->begin();
+                 i; i++ )
+        {
+                Scope *pSc = new Scope();
+                gatsToScope( dynamic_cast<Gats::Dictionary *>(*i), pSc );
+                hsSituation.insert( i.getKey(), pSc );
+        }
+}
+
 Gats::Object *GameState::scopeToGats( const Scope *pSrc ) const
 {
         Gats::Dictionary *pDst = new Gats::Dictionary();
@@ -60,7 +75,7 @@ Gats::Object *GameState::variableToGats( const Variable &rVar ) const
                         break;
 
                 case Variable::tBool:
-                        pLst->append( rVar.getBool() );
+                        pLst->append( new Gats::Boolean( rVar.getBool() ) );
                         break;
 
                 case Variable::tInt:
@@ -114,6 +129,108 @@ Gats::Object *GameState::variableToGats( const Variable &rVar ) const
         return pLst;
 }
 
+void GameState::gatsToScope( Gats::Dictionary *pRoot, Scope *pSrc ) const
+{
+        for( Gats::Dictionary::iterator i = pRoot->begin(); i; i++ )
+        {
+                pSrc->insert( i.getKey(), gatsToVariable(
+                        dynamic_cast<Gats::List *>(*i)
+                        ) );
+        }
+}
+
+Variable GameState::gatsToVariable( Gats::List *pLst ) const
+{
+        Gats::List::iterator i = pLst->begin();
+
+        switch( dynamic_cast<Gats::Integer *>(*i)->getValue() )
+        {
+                case Variable::tNull:
+                        return Variable( Variable::tNull );
+                        break;
+
+                case Variable::tBool:
+                        return Variable(
+                                dynamic_cast<Gats::Boolean *>(*(i+1))->getValue()
+                                );
+                        break;
+
+                case Variable::tInt:
+                        return Variable(
+                                dynamic_cast<Gats::Integer *>(*(i+1))->getValue()
+                                );
+                        break;
+
+                case Variable::tFloat:
+                        return Variable(
+                                dynamic_cast<Gats::Float *>(*(i+1))->getValue()
+                                );
+                        break;
+
+                case Variable::tSituation:
+                        return Variable::newSituationName(
+                                *dynamic_cast<Gats::String *>(*(i+1))
+                                );
+                        break;
+
+                case Variable::tVariable:
+                        return Variable::newVariableName(
+                                *dynamic_cast<Gats::String *>(*(i+2)),
+                                (ScopeId)dynamic_cast<Gats::Integer *>(*(i+1))->getValue()
+                                );
+                        break;
+
+                case Variable::tVarPtr:
+                        sio << "No!!!" << sio.nl;
+                        break;
+
+                case Variable::tList:
+                        {
+                                Variable vRet( Variable::tList );
+                                for( Gats::List::iterator k =
+                                         dynamic_cast<Gats::List *>(*(i+1))->begin(); k; k++ )
+                                {
+                                        vRet += gatsToVariable(
+                                                dynamic_cast<Gats::List *>(*k)
+                                                );
+                                }
+                                return vRet;
+                        }
+                        break;
+
+                case Variable::tDictionary:
+                        {
+                                Variable vRet( Variable::tDictionary );
+                                for( Gats::List::iterator k =
+                                         dynamic_cast<Gats::List *>(*(i+1))->begin(); k; k++ )
+                                {
+                                        Variable vKey = gatsToVariable(
+                                                dynamic_cast<Gats::List *>(*k)
+                                                );
+                                        k++;
+                                        if( !k )
+                                        {
+                                                throw Bu::ExceptionBase("Premature end of dict.");
+                                        }
+                                        Variable vValue = gatsToVariable(
+                                                dynamic_cast<Gats::List *>(*k)
+                                                );
+                                        vRet.insert( vKey, vValue );
+                                }
+                                return vRet;
+                        }
+                        break;
+
+                case Variable::tString:
+                        return Variable(
+                                *dynamic_cast<Gats::String *>(*(i+1))
+                                );
+                        break;
+        }
+
+        throw Bu::ExceptionBase("Type unknown: %d", dynamic_cast<Gats::Integer *>(*i)->getValue() );
+}
+
 void GameState::parse( class AstBranch *pAst )
 {
         if( pAst->getType() != AstNode::tScope )