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/PShell.hs        | 1 +
 src/GF/Shell/ShellCommands.hs | 2 ++
 2 files changed, 3 insertions(+)

(limited to 'src/GF/Shell')

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