GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-04-22 19:22:50 -06:00
Code Issues Packages Projects Releases Wiki Activity

funny ASCII logo

Browse Source
This commit is contained in:
aarne
2007-11-06 20:52:49 +00:00
parent 14e974af9e
commit fc457ce795
1 changed files with 21 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

24
src/GF/Devel/GF3.hs
View File

@@ -26,10 +26,16 @@ loop gfenv0 = do
s <- getLine s <- getLine
let gfenv = gfenv0 {history = s : history gfenv0} let gfenv = gfenv0 {history = s : history gfenv0}
case words s of case words s of
"q":_ -> return gfenv
-- special commands, working on GFEnv
"i":args -> do "i":args -> do
env1 <- importInEnv (multigrammar env) args env1 <- importInEnv (multigrammar env) args
loopNewCPU $ gfenv {commandenv = env1} 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 _ -> do
interpretCommandLine env s interpretCommandLine env s
loopNewCPU gfenv loopNewCPU gfenv
@@ -48,8 +54,20 @@ importInEnv mgr0 xx = do
return env return env
welcome = unlines [ 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) ++ "> " prompt env = abstractName (multigrammar env) ++ "> "