diff options
| author | bringert <bringert@cs.chalmers.se> | 2006-12-17 13:17:17 +0000 |
|---|---|---|
| committer | bringert <bringert@cs.chalmers.se> | 2006-12-17 13:17:17 +0000 |
| commit | 44af93a9c92f1437a59db3e18d8c154fe543bc1a (patch) | |
| tree | ee48687d8b5c7bb56fac44d4a1f0756653bfcb8d /src/GF/UseGrammar/Custom.hs | |
| parent | bd4dbfb26beb06424e00227087603bfca563dda3 (diff) | |
Many fixes to JSGF format (never tested before). Implemented JSGF+SISR. Left recursion removal destroys SISR, must be fixed.
Diffstat (limited to 'src/GF/UseGrammar/Custom.hs')
| -rw-r--r-- | src/GF/UseGrammar/Custom.hs | 9 |
1 files changed, 7 insertions, 2 deletions
diff --git a/src/GF/UseGrammar/Custom.hs b/src/GF/UseGrammar/Custom.hs index 92b95756a..9a689cb8c 100644 --- a/src/GF/UseGrammar/Custom.hs +++ b/src/GF/UseGrammar/Custom.hs @@ -62,6 +62,7 @@ import GF.CF.CFtoSRG import GF.Speech.PrGSL (gslPrinter) import GF.Speech.PrJSGF (jsgfPrinter) import qualified GF.Speech.PrSRGS as SRGS +import qualified GF.Speech.SISR as SISR import GF.Speech.PrSLF import GF.Speech.PrFA (faGraphvizPrinter,regularPrinter,faCPrinter) import GF.Speech.PrRegExp (regexpPrinter) @@ -252,7 +253,11 @@ customGrammarPrinter = in gslPrinter name start opts Nothing $ stateCFG s) ,(strCI "jsgf", \opts s -> let name = cncId s start = getStartCatCF opts s - in jsgfPrinter name start opts Nothing $ stateCFG s) + in jsgfPrinter name start opts Nothing Nothing $ stateCFG s) + ,(strCI "jsgf_sisr_old", + \opts s -> let name = cncId s + start = getStartCatCF opts s + in jsgfPrinter name start opts (Just SISR.SISROld) Nothing $ stateCFG s) ,(strCI "srgs_xml", \opts s -> let name = cncId s start = getStartCatCF opts s in SRGS.srgsXmlPrinter name start opts Nothing Nothing $ stateCFG s) @@ -264,7 +269,7 @@ customGrammarPrinter = ,(strCI "srgs_xml_sisr_old", \opts s -> let name = cncId s start = getStartCatCF opts s - in SRGS.srgsXmlPrinter name start opts (Just SRGS.SISROld) Nothing $ stateCFG s) + in SRGS.srgsXmlPrinter name start opts (Just SISR.SISROld) Nothing $ stateCFG s) ,(strCI "vxml", \opts s -> let start = getStartCat opts s in grammar2vxml start s) ,(strCI "slf", \opts s -> let start = getStartCatCF opts s |