diff options
| author | bringert <bringert@cs.chalmers.se> | 2007-06-20 16:08:23 +0000 |
|---|---|---|
| committer | bringert <bringert@cs.chalmers.se> | 2007-06-20 16:08:23 +0000 |
| commit | 6968004f1945530fa3be91f7982d1f225f92267d (patch) | |
| tree | ef263500ec27db5c20ff718005ed2901cbbae430 /src/GF/UseGrammar/Custom.hs | |
| parent | 91dcc276687dff51cc8ff1faa0a37c3fcf847871 (diff) | |
Added regexps grammar printer. This is a first step towards recursion-free SRGS.
Diffstat (limited to 'src/GF/UseGrammar/Custom.hs')
| -rw-r--r-- | src/GF/UseGrammar/Custom.hs | 3 |
1 files changed, 2 insertions, 1 deletions
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) |