diff options
| author | bringert <bringert@cs.chalmers.se> | 2006-01-17 02:13:57 +0000 |
|---|---|---|
| committer | bringert <bringert@cs.chalmers.se> | 2006-01-17 02:13:57 +0000 |
| commit | d4d89c72f370fe4c63cc5aaa612e64cb09c6f650 (patch) | |
| tree | 1fb26d529d18f9858843439c1acc3f0d43a5a474 /src/GF/Speech/PrFA.hs | |
| parent | 74c5d41152a0315e038e3d37ac992a26f975b729 (diff) | |
Use cat and language in ATK si. Support language switching with ATK.
Diffstat (limited to 'src/GF/Speech/PrFA.hs')
| -rw-r--r-- | src/GF/Speech/PrFA.hs | 11 |
1 files changed, 5 insertions, 6 deletions
diff --git a/src/GF/Speech/PrFA.hs b/src/GF/Speech/PrFA.hs index e3c22ef1d..c5ac4e134 100644 --- a/src/GF/Speech/PrFA.hs +++ b/src/GF/Speech/PrFA.hs @@ -23,7 +23,6 @@ import GF.Conversion.Types import GF.Formalism.CFG import GF.Formalism.Utilities (Symbol(..),symbol) import GF.Infra.Ident -import GF.Infra.Option import GF.Infra.Print import GF.Speech.CFGToFiniteState import GF.Speech.FiniteState @@ -37,10 +36,10 @@ import Data.Maybe (fromMaybe) faGraphvizPrinter :: Ident -- ^ Grammar name - -> Options -> CGrammar -> String -faGraphvizPrinter name opts cfg = + -> String -> CGrammar -> String +faGraphvizPrinter name start cfg = prFAGraphviz $ mapStates (const "") fa - where fa = cfgToFA opts cfg + where fa = cfgToFA start cfg -- | Convert the grammar to a regular grammar and print it in BNF @@ -53,8 +52,8 @@ regularPrinter = prCFRules . makeSimpleRegular showRhs = unwords . map (symbol id show) faCPrinter :: Ident -- ^ Grammar name - -> Options -> CGrammar -> String -faCPrinter name opts cfg = fa2c $ cfgToFA opts cfg + -> String -> CGrammar -> String +faCPrinter name start cfg = fa2c $ cfgToFA start cfg fa2c :: DFA String -> String fa2c fa = undefined
\ No newline at end of file |