diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/GF/Devel/GF3.hs | 24 |
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) ++ "> " |