diff options
| author | bringert <unknown> | 2004-10-01 08:43:59 +0000 |
|---|---|---|
| committer | bringert <unknown> | 2004-10-01 08:43:59 +0000 |
| commit | f64502d4a7016864990432fd7135157c1d29ef0b (patch) | |
| tree | 9ed90c4246229f6a8695694c5468d5647dea3bb7 /src/GF/UseGrammar | |
| parent | 653c903dc782ac39ea4e42daee0154f1d9fc9e8d (diff) | |
Generalized Speech Recognition Grammar generation. Added JSGF grammar printer.
Diffstat (limited to 'src/GF/UseGrammar')
| -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 9119b8f36..dfffd2b2a 100644 --- a/src/GF/UseGrammar/Custom.hs +++ b/src/GF/UseGrammar/Custom.hs @@ -28,6 +28,7 @@ import PrOld import MkGFC import CFtoSRG import PrGSL (gslPrinter) +import PrJSGF (jsgfPrinter) import Zipper @@ -194,6 +195,9 @@ customGrammarPrinter = ,(strCI "gsl", \s -> let opts = stateOptions s name = cncId s in gslPrinter name opts $ Cnv.cfg $ statePInfo s) + ,(strCI "jsgf", \s -> let opts = stateOptions s + name = cncId s + in jsgfPrinter name opts $ Cnv.cfg $ statePInfo s) ,(strCI "plbnf", prLBNF True) ,(strCI "lbnf", prLBNF False) ,(strCI "bnf", prBNF False) |