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

debugging arabic

Browse Source
This commit is contained in:
aarne
2008-06-26 21:40:21 +00:00
parent a1da4b7c48
commit 757ea827e6
1 changed files with 55 additions and 46 deletions
Download Patch File Download Diff File Expand all files Collapse all files

23
src/GFI.hs
View File

@@ -55,8 +55,16 @@ loop opts gfenv0 = do
pwords = case words s of
w:ws -> getCommandOp w :ws
ws -> ws
r <- runInterruptibly $ case pwords of
-- special commands, requiring source grammar in env
case pwords of
"q":_ -> putStrLn "See you." >> return gfenv
_ -> do
r <- runInterruptibly $ case pwords of
"!":ws -> do
system $ unwords ws
loopNewCPU gfenv
@@ -65,14 +73,16 @@ loop opts gfenv0 = do
(style,term) = case ws of
('-':w):ws2 -> (pTermPrintStyle w, ws2)
_ -> (TermPrintDefault, ws)
case pTerm (unwords term) >>= checkTerm sgr >>= computeTerm sgr of ---- pipe!
case pTerm (unwords term) >>= checkTerm sgr >>= computeTerm sgr of
Ok x -> putStrLn $ enc (showTerm style x)
Bad s -> putStrLn $ enc s
loopNewCPU gfenv
"i":args -> do
gfenv' <- case parseOptions args of
Ok (opts',files) -> importInEnv gfenv (addOptions opts opts') files
Bad err -> do putStrLn $ "Command parse error: " ++ err
Ok (opts',files) ->
importInEnv gfenv (addOptions opts opts') files
Bad err -> do
putStrLn $ "Command parse error: " ++ err
return gfenv
loopNewCPU gfenv'
@@ -99,11 +109,10 @@ loop opts gfenv0 = do
}
_ -> putStrLn "value definition not parsed" >> loopNewCPU gfenv
"ph":_ -> mapM_ (putStrLn . enc) (reverse (history gfenv0)) >> loopNewCPU gfenv
"ph":_ ->
mapM_ (putStrLn . enc) (reverse (history gfenv0)) >> loopNewCPU gfenv
"se":c -> loopNewCPU $ gfenv {coding = s}
"q":_ -> putStrLn "See you." >> return gfenv
-- ordinary commands, working on CommandEnv
_ -> do
interpretCommandLine enc env s