From cae872e75ac34fa6d94dd1dadb2b90f0272d3735 Mon Sep 17 00:00:00 2001 From: bringert Date: Fri, 19 Jan 2007 17:04:32 +0000 Subject: Added SRGS ABNF generation. --- src/GF/UseGrammar/Custom.hs | 11 +++++++---- 1 file changed, 7 insertions(+), 4 deletions(-) (limited to 'src/GF/UseGrammar/Custom.hs') diff --git a/src/GF/UseGrammar/Custom.hs b/src/GF/UseGrammar/Custom.hs index ca2b704b6..9ae9cd04a 100644 --- a/src/GF/UseGrammar/Custom.hs +++ b/src/GF/UseGrammar/Custom.hs @@ -61,7 +61,8 @@ import GF.Canon.MkGFC import GF.CF.CFtoSRG import GF.Speech.PrGSL (gslPrinter) import GF.Speech.PrJSGF (jsgfPrinter) -import qualified GF.Speech.PrSRGS as SRGS +import GF.Speech.PrSRGS +import GF.Speech.PrSRGS_ABNF import qualified GF.Speech.SISR as SISR import GF.Speech.PrSLF import GF.Speech.PrFA (faGraphvizPrinter,regularPrinter,faCPrinter) @@ -251,9 +252,11 @@ customGrammarPrinter = ,(strCI "gsl", gslPrinter) ,(strCI "jsgf", jsgfPrinter Nothing) ,(strCI "jsgf_sisr_old", jsgfPrinter (Just SISR.SISROld)) - ,(strCI "srgs_xml", SRGS.srgsXmlPrinter Nothing False) - ,(strCI "srgs_xml_prob", SRGS.srgsXmlPrinter Nothing True) - ,(strCI "srgs_xml_sisr_old", SRGS.srgsXmlPrinter (Just SISR.SISROld) False) + ,(strCI "srgs_xml", srgsXmlPrinter Nothing False) + ,(strCI "srgs_xml_prob", srgsXmlPrinter Nothing True) + ,(strCI "srgs_xml_sisr_old", srgsXmlPrinter (Just SISR.SISROld) False) + ,(strCI "srgs_abnf", srgsAbnfPrinter Nothing False) + ,(strCI "srgs_abnf_sisr_old", srgsAbnfPrinter (Just SISR.SISROld) False) ,(strCI "vxml", grammar2vxml) ,(strCI "slf", slfPrinter) ,(strCI "slf_graphviz", slfGraphvizPrinter) -- cgit v1.2.3