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

readfiles

Browse Source
This commit is contained in:
aarne
2004-06-10 14:34:07 +00:00
parent c976663beb
commit 48560dd867
5 changed files with 22 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
src/GF/Shell/ShellCommands.hs
View File

@@ -91,7 +91,7 @@ isValidOption st co op = case op of
testValidFlag st o x
_ -> Bad $ "impossible option" +++ prOpt op
where
optsOf co = fst $ optionsOfCommand co
optsOf co = ("tr" :) $ fst $ optionsOfCommand co
flagsOf co = snd $ optionsOfCommand co
testValidFlag :: ShellState -> OptFunId -> String -> Err ()
@@ -134,7 +134,7 @@ optionsOfCommand co = case co of
CTransformGrammar _ -> flags "printer"
CConvertLatex _ -> none
CLinearize _ -> both "table struct record" "lang number unlexer"
CParse -> both "n ign raw v" "cat lang lexer parser number"
CParse -> both "new n ign raw v" "cat lang lexer parser number"
CTranslate _ _ -> opts "cat lexer parser"
CGenerateRandom -> flags "cat lang number depth"
CGenerateTrees -> both "metas" "depth alts cat lang number"