From 6968004f1945530fa3be91f7982d1f225f92267d Mon Sep 17 00:00:00 2001 From: bringert Date: Wed, 20 Jun 2007 16:08:23 +0000 Subject: Added regexps grammar printer. This is a first step towards recursion-free SRGS. --- src/GF/UseGrammar/Custom.hs | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'src/GF/UseGrammar') diff --git a/src/GF/UseGrammar/Custom.hs b/src/GF/UseGrammar/Custom.hs index 132c832cd..eeb2b0ae2 100644 --- a/src/GF/UseGrammar/Custom.hs +++ b/src/GF/UseGrammar/Custom.hs @@ -65,7 +65,7 @@ import GF.Speech.PrSRGS_ABNF import qualified GF.Speech.SISR as SISR import GF.Speech.PrSLF import GF.Speech.PrFA (faGraphvizPrinter,regularPrinter,faCPrinter) -import GF.Speech.PrRegExp (regexpPrinter) +import GF.Speech.PrRegExp (regexpPrinter,multiRegexpPrinter) import GF.Speech.GrammarToVoiceXML (grammar2vxml) import GF.Data.Zipper @@ -264,6 +264,7 @@ customGrammarPrinter = ,(strCI "fa_graphviz", faGraphvizPrinter) ,(strCI "fa_c", faCPrinter) ,(strCI "regexp", regexpPrinter) + ,(strCI "regexps", multiRegexpPrinter) ,(strCI "regular", regularPrinter) ,(strCI "plbnf", \_ -> prLBNF True) ,(strCI "lbnf", \_ -> prLBNF False) -- cgit v1.2.3