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.hs | |
| parent | 0d99169a7f3500fc13a610d1ebe3ca10926ec86a (diff) | |
Added visualization of source modules.
Diffstat (limited to 'src/GF/Shell.hs')
| -rw-r--r-- | src/GF/Shell.hs | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/src/GF/Shell.hs b/src/GF/Shell.hs index 2b7a66701..4d0d9b879 100644 --- a/src/GF/Shell.hs +++ b/src/GF/Shell.hs @@ -41,6 +41,7 @@ import Operations import UseIO import UTF8 (encodeUTF8) +import VisualizeGrammar (visualizeSourceGrammar) ---- import qualified GrammarToGramlet as Gr ---- import qualified GrammarToCanonXML2 as Canon @@ -228,6 +229,8 @@ execC co@(comm, opts0) sa@((st,(h,_)),a) = checkOptions st co >> case comm of CPrintMultiGrammar -> do sa' <- changeState purgeShellState sa returnArg (AString (optPrintMultiGrammar opts cgr)) sa' + CPrintSourceGrammar -> + returnArg (AString (visualizeSourceGrammar src)) sa ---- CPrintGramlet -> returnArg (AString (Gr.prGramlet st)) sa ---- CPrintCanonXML -> returnArg (AString (Canon.prCanonXML st False)) sa |