diff options
| author | bringert <unknown> | 2005-11-10 15:43:44 +0000 |
|---|---|---|
| committer | bringert <unknown> | 2005-11-10 15:43:44 +0000 |
| commit | 136728e336d66349723f882fcd87a2eb8d42903c (patch) | |
| tree | 8e01d0e190f6be0585ffcd1f945e651a0c481a4b /src/GF/UseGrammar/Custom.hs | |
| parent | 5ae8cdc3d08fb1aae74e6da5c647c6c76cb46d15 (diff) | |
Prepared for generation of finite automata in C.
Diffstat (limited to 'src/GF/UseGrammar/Custom.hs')
| -rw-r--r-- | src/GF/UseGrammar/Custom.hs | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/src/GF/UseGrammar/Custom.hs b/src/GF/UseGrammar/Custom.hs index 9a4ce997d..1db93bff3 100644 --- a/src/GF/UseGrammar/Custom.hs +++ b/src/GF/UseGrammar/Custom.hs @@ -5,9 +5,9 @@ -- Stability : (stable) -- Portability : (portable) -- --- > CVS $Date: 2005/11/10 14:19:33 $ +-- > CVS $Date: 2005/11/10 16:43:45 $ -- > CVS $Author: bringert $ --- > CVS $Revision: 1.83 $ +-- > CVS $Revision: 1.84 $ -- -- A database for customizable GF shell commands. -- @@ -59,7 +59,7 @@ import GF.Speech.PrGSL (gslPrinter) import GF.Speech.PrJSGF (jsgfPrinter) import GF.Speech.PrSRGS (srgsXmlPrinter) import GF.Speech.PrSLF (slfPrinter,slfGraphvizPrinter) -import GF.Speech.PrFA (faGraphvizPrinter,regularPrinter) +import GF.Speech.PrFA (faGraphvizPrinter,regularPrinter,faCPrinter) import GF.Data.Zipper @@ -261,6 +261,9 @@ customGrammarPrinter = ,(strCI "fa_graphviz", \s -> let opts = stateOptions s name = cncId s in faGraphvizPrinter name opts $ stateCFG s) + ,(strCI "fa_c", \s -> let opts = stateOptions s + name = cncId s + in faCPrinter name opts $ stateCFG s) ,(strCI "regular", regularPrinter . stateCFG) ,(strCI "plbnf", prLBNF True) ,(strCI "lbnf", prLBNF False) |