diff options
| author | bjorn <bjorn@bringert.net> | 2008-09-30 11:52:11 +0000 |
|---|---|---|
| committer | bjorn <bjorn@bringert.net> | 2008-09-30 11:52:11 +0000 |
| commit | 446aa1b5db35402dbdd0821eec4ea1bbbed7d0f9 (patch) | |
| tree | c54c17659508ce9252f54622b1ac8878aef0bb77 /src/GF/Speech/JSGF.hs | |
| parent | 794fbd4a416ef53d289545eb83455ee745115fec (diff) | |
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".
Diffstat (limited to 'src/GF/Speech/JSGF.hs')
| -rw-r--r-- | src/GF/Speech/JSGF.hs | 6 |
1 files changed, 4 insertions, 2 deletions
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 |