From 215bf61115a1b78c6466830c89574091459bebdb Mon Sep 17 00:00:00 2001 From: bringert Date: Fri, 15 Dec 2006 16:09:58 +0000 Subject: Towards smaller SRGs when lots of variants are used. --- 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 7e76688d9..92b95756a 100644 --- a/src/GF/UseGrammar/Custom.hs +++ b/src/GF/UseGrammar/Custom.hs @@ -64,6 +64,7 @@ import GF.Speech.PrJSGF (jsgfPrinter) import qualified GF.Speech.PrSRGS as SRGS import GF.Speech.PrSLF import GF.Speech.PrFA (faGraphvizPrinter,regularPrinter,faCPrinter) +import GF.Speech.PrRegExp (regexpPrinter) import GF.Speech.GrammarToVoiceXML (grammar2vxml) import GF.Data.Zipper @@ -284,6 +285,9 @@ customGrammarPrinter = ,(strCI "fa_c", \opts s -> let start = getStartCatCF opts s name = cncId s in faCPrinter name start $ stateCFG s) + ,(strCI "regexp", \opts s -> let start = getStartCatCF opts s + name = cncId s + in regexpPrinter name start $ stateCFG s) ,(strCI "regular", \_ -> regularPrinter . stateCFG) ,(strCI "plbnf", \_ -> prLBNF True) ,(strCI "lbnf", \_ -> prLBNF False) -- cgit v1.2.3