Added regexps grammar printer. This is a first step towards recursion-free SRGS.

This commit is contained in:
bringert
2007-06-20 16:08:23 +00:00
parent a029232eef
commit 13b8bab5fe
4 changed files with 21 additions and 7 deletions

View File

@@ -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)