funny ASCII logo

1 files changed, 21 insertions, 3 deletions

diff --git a/src/GF/Devel/GF3.hs b/src/GF/Devel/GF3.hs
index 30bc2f810..e6d2b1bc3 100644
--- a/src/GF/Devel/GF3.hs
+++ b/src/GF/Devel/GF3.hs
@@ -26,10 +26,16 @@ loop gfenv0 = do
   s <- getLine
   let gfenv = gfenv0 {history = s : history gfenv0}
   case words s of
-    "q":_ -> return gfenv
+
+  -- special commands, working on GFEnv
     "i":args -> do
       env1 <- importInEnv (multigrammar env) args
       loopNewCPU $ gfenv {commandenv = env1}
+    "e":_ -> loopNewCPU $ gfenv {commandenv=env{multigrammar=emptyMultiGrammar}}
+    "ph":_ -> mapM_ putStrLn (reverse (history gfenv0)) >> loopNewCPU gfenv
+    "q":_  -> putStrLn "See you." >> return gfenv
+
+  -- ordinary commands, working on CommandEnv
     _ -> do
       interpretCommandLine env s
       loopNewCPU gfenv
@@ -48,8 +54,20 @@ importInEnv mgr0 xx = do
   return env
 
 welcome = unlines [
-  "This is GF version 3.0 alpha.",
-  "Some things may work."
+  "                              ",
+  "         *  *  *              ",
+  "      *           *           ",
+  "    *               *         ",
+  "   *                          ",
+  "   *                          ",
+  "   *        * * * * * *       ",
+  "   *        *         *       ",
+  "    *       * * * *  *        ",
+  "      *     *      *          ",
+  "         *  *  *              ",
+  "                              ",
+  "This is GF version 3.0 alpha. ",
+  "Some things may work.         "
   ]
 
 prompt env = abstractName (multigrammar env) ++ "> "