msyds/gf-core
1
0
Fork 0
forked from GitHub/gf-core
Code Pull Requests Activity

Towards smaller SRGs when lots of variants are used.

Browse Source
This commit is contained in:
bringert
2006-12-15 16:09:58 +00:00
parent 1e1401472f
commit 215bf61115
8 changed files with 201 additions and 83 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
src/GF/UseGrammar/Custom.hs
View File

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