diff options
| author | bringert <bringert@cs.chalmers.se> | 2006-12-15 16:09:58 +0000 |
|---|---|---|
| committer | bringert <bringert@cs.chalmers.se> | 2006-12-15 16:09:58 +0000 |
| commit | 215bf61115a1b78c6466830c89574091459bebdb (patch) | |
| tree | 0c54ecb6ae408f316fea227ca6e202930fab5929 /src/GF/UseGrammar/Custom.hs | |
| parent | 1e1401472fdc55ba8f208baa7f07e2a4a3cb906c (diff) | |
Towards smaller SRGs when lots of variants are used.
Diffstat (limited to 'src/GF/UseGrammar/Custom.hs')
| -rw-r--r-- | src/GF/UseGrammar/Custom.hs | 4 |
1 files changed, 4 insertions, 0 deletions
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) |