From f64502d4a7016864990432fd7135157c1d29ef0b Mon Sep 17 00:00:00 2001
From: bringert <unknown>
Date: Fri, 1 Oct 2004 08:43:59 +0000
Subject: Generalized Speech Recognition Grammar generation. Added JSGF grammar
 printer.

---
 src/GF/UseGrammar/Custom.hs | 4 ++++
 1 file changed, 4 insertions(+)

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

diff --git a/src/GF/UseGrammar/Custom.hs b/src/GF/UseGrammar/Custom.hs
index 9119b8f36..dfffd2b2a 100644
--- a/src/GF/UseGrammar/Custom.hs
+++ b/src/GF/UseGrammar/Custom.hs
@@ -28,6 +28,7 @@ import PrOld
 import MkGFC
 import CFtoSRG
 import PrGSL (gslPrinter)
+import PrJSGF (jsgfPrinter)
 
 import Zipper
 
@@ -194,6 +195,9 @@ customGrammarPrinter =
   ,(strCI "gsl",     \s -> let opts = stateOptions s
                                name = cncId s
                             in gslPrinter name opts $ Cnv.cfg $ statePInfo s)
+  ,(strCI "jsgf",    \s -> let opts = stateOptions s
+                               name = cncId s
+                            in jsgfPrinter name opts $ Cnv.cfg $ statePInfo s)
   ,(strCI "plbnf",   prLBNF True)
   ,(strCI "lbnf",    prLBNF False)
   ,(strCI "bnf",     prBNF False)
-- 
cgit v1.2.3