From 94f87d85023fc9b0e759600435e3c85cf31e3bc4 Mon Sep 17 00:00:00 2001
From: bringert <unknown>
Date: Mon, 31 Oct 2005 15:48:08 +0000
Subject: Added SRGS XML grammar printer.

---
 src/GF/UseGrammar/Custom.hs | 10 +++++++---
 1 file changed, 7 insertions(+), 3 deletions(-)

(limited to 'src/GF/UseGrammar/Custom.hs')

diff --git a/src/GF/UseGrammar/Custom.hs b/src/GF/UseGrammar/Custom.hs
index ee68c9b3c..9887a2371 100644
--- a/src/GF/UseGrammar/Custom.hs
+++ b/src/GF/UseGrammar/Custom.hs
@@ -5,9 +5,9 @@
 -- Stability   : (stable)
 -- Portability : (portable)
 --
--- > CVS $Date: 2005/10/12 12:38:30 $ 
--- > CVS $Author: aarne $
--- > CVS $Revision: 1.78 $
+-- > CVS $Date: 2005/10/31 16:48:10 $ 
+-- > CVS $Author: bringert $
+-- > CVS $Revision: 1.79 $
 --
 -- A database for customizable GF shell commands. 
 --
@@ -57,6 +57,7 @@ import GF.Canon.MkGFC
 import GF.CF.CFtoSRG
 import GF.Speech.PrGSL (gslPrinter)
 import GF.Speech.PrJSGF (jsgfPrinter)
+import GF.Speech.PrSRGS (srgsXmlPrinter)
 import GF.Speech.PrSLF (slfPrinter,slfGraphvizPrinter,faGraphvizPrinter,regularPrinter)
 
 import GF.Data.Zipper
@@ -242,6 +243,9 @@ customGrammarPrinter =
   ,(strCI "jsgf",    \s -> let opts = stateOptions s
                                name = cncId s
                             in jsgfPrinter name opts $ stateCFG s)
+  ,(strCI "srgs_xml", \s -> let opts = stateOptions s
+                                name = cncId s
+                             in srgsXmlPrinter name opts $ stateCFG s)
   ,(strCI "slf",     \s -> let opts = stateOptions s
                                name = cncId s
                             in slfPrinter name opts $ stateCFG s)
-- 
cgit v1.2.3