From 95d434bbd2e3722bdc1259971b25aee011b4f30f Mon Sep 17 00:00:00 2001
From: bringert <unknown>
Date: Fri, 10 Dec 2004 14:02:00 +0000
Subject: Added visualization of source modules.

---
 src/GF/Shell.hs | 3 +++
 1 file changed, 3 insertions(+)

(limited to 'src/GF/Shell.hs')

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
-- 
cgit v1.2.3