command language and gfcc term parser in bnfc

2007-11-03 22:00:08 +00:00
parent ed4b43961d
commit 5956ba6b38
9 changed files with 1424 additions and 3 deletions
--- a/src/GF/Devel/Shell.hs
+++ b/src/GF/Devel/Shell.hs
@@ -46,7 +46,7 @@ treat mgr s = case words s of
    let ts = parse mgr lang cat $ unwords ws
    mapM_ (putStrLn . showTree) ts 
  "h":_ -> printHelp mgr
-  _ -> lins $ readTree mgr s
+  "l" : ws -> lins $ readTree mgr $ unwords ws
 where
  grammar = gfcc mgr
  langs = languages mgr