msyds/gf-core
1
0
Fork 0
forked from GitHub/gf-core
Code Pull Requests Activity

started CheckGFCC

Browse Source
This commit is contained in:
aarne
2007-09-28 13:42:50 +00:00
parent 5fedbc53ae
commit 3b4ee92cbe
6 changed files with 118 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
src/GF/Canon/GFCC/Shell.hs
View File

@@ -41,7 +41,7 @@ commands = unlines [
treat :: MultiGrammar -> String -> IO ()
treat mgr s = case words s of
"gt" :cat:n:_ -> mapM_ prlinonly $ take (read1 n) $ generateAll mgr cat
"gtt":cat:n:_ -> mapM_ prlin $ generateAll mgr cat
"gtt":cat:n:_ -> mapM_ prlin $ take (read1 n) $ generateAll mgr cat
"gr" :cat:n:_ -> generateRandom mgr cat >>= mapM_ prlinonly . take (read1 n)
"grt":cat:n:_ -> generateRandom mgr cat >>= mapM_ prlin . take (read1 n)
"p":lang:cat:ws -> do