From 446aa1b5db35402dbdd0821eec4ea1bbbed7d0f9 Mon Sep 17 00:00:00 2001
From: bjorn <bjorn@bringert.net>
Date: Tue, 30 Sep 2008 11:52:11 +0000
Subject: Added --cfg option for specifying which CFG transformations to use.
 Added startcatonly CFG trasnformation. Removed output formats that are now
 easily done with --cfg: "regular", "nolr".

---
 src/GF/Speech/JSGF.hs | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

(limited to 'src/GF/Speech/JSGF.hs')

diff --git a/src/GF/Speech/JSGF.hs b/src/GF/Speech/JSGF.hs
index 171d859a4..2cfeea5f5 100644
--- a/src/GF/Speech/JSGF.hs
+++ b/src/GF/Speech/JSGF.hs
@@ -13,6 +13,7 @@
 module GF.Speech.JSGF (jsgfPrinter) where
 
 import GF.Data.Utilities
+import GF.Infra.Option
 import GF.Speech.CFG
 import GF.Speech.RegExp
 import GF.Speech.SISR
@@ -29,11 +30,12 @@ import Debug.Trace
 width :: Int
 width = 75
 
-jsgfPrinter :: Maybe SISRFormat
+jsgfPrinter :: Options
 	    -> PGF 
             -> CId -> String
-jsgfPrinter sisr pgf cnc = renderStyle st $ prJSGF sisr $ makeNonLeftRecursiveSRG pgf cnc
+jsgfPrinter opts pgf cnc = renderStyle st $ prJSGF sisr $ makeNonLeftRecursiveSRG opts pgf cnc
   where st = style { lineLength = width }
+        sisr = flag optSISR opts
 
 prJSGF :: Maybe SISRFormat -> SRG -> Doc
 prJSGF sisr srg
-- 
cgit v1.2.3