diff options
| author | bringert <unknown> | 2004-12-10 14:02:00 +0000 |
|---|---|---|
| committer | bringert <unknown> | 2004-12-10 14:02:00 +0000 |
| commit | 95d434bbd2e3722bdc1259971b25aee011b4f30f (patch) | |
| tree | 1168f3a315bb7c30cc65a36a576737a645b76307 /src/GF/Shell | |
| parent | 0d99169a7f3500fc13a610d1ebe3ca10926ec86a (diff) | |
Added visualization of source modules.
Diffstat (limited to 'src/GF/Shell')
| -rw-r--r-- | src/GF/Shell/PShell.hs | 1 | ||||
| -rw-r--r-- | src/GF/Shell/ShellCommands.hs | 2 |
2 files changed, 3 insertions, 0 deletions
diff --git a/src/GF/Shell/PShell.hs b/src/GF/Shell/PShell.hs index 230a6e62a..ff447fc6d 100644 --- a/src/GF/Shell/PShell.hs +++ b/src/GF/Shell/PShell.hs @@ -113,6 +113,7 @@ pCommand ws = case ws of "pxs" : [] -> aUnit CPrintCanonXMLStruct "px" : [] -> aUnit CPrintCanonXML "pm" : [] -> aUnit CPrintMultiGrammar + "sg" : [] -> aUnit CPrintSourceGrammar "po" : [] -> aUnit CPrintGlobalOptions "pl" : [] -> aUnit CPrintLanguages "h" : c : [] -> aUnit $ CHelp (Just (abbrevCommand c)) diff --git a/src/GF/Shell/ShellCommands.hs b/src/GF/Shell/ShellCommands.hs index 846c753bc..e30b8010b 100644 --- a/src/GF/Shell/ShellCommands.hs +++ b/src/GF/Shell/ShellCommands.hs @@ -57,6 +57,7 @@ data Command = | CPrintLanguages | CPrintInformation I.Ident | CPrintMultiGrammar + | CPrintSourceGrammar | CPrintGramlet | CPrintCanonXML | CPrintCanonXMLStruct @@ -166,6 +167,7 @@ optionsOfCommand co = case co of CPrintGrammar -> both "utf8" "printer lang" CPrintMultiGrammar -> both "utf8" "printer" + CPrintSourceGrammar -> both "utf8" "printer" CHelp _ -> opts "all filter length lexer unlexer printer transform depth number" |