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

Added semi-working speech_input command.

Browse Source
This commit is contained in:
bringert
2005-12-13 21:03:56 +00:00
parent 9f867c4922
commit 5a480fac52
15 changed files with 190 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
src/GF/Speech/PrFA.hs
View File

@@ -37,7 +37,7 @@ import Data.Maybe (fromMaybe)
faGraphvizPrinter :: Ident -- ^ Grammar name
-> Options -> CGrammar -> String
faGraphvizPrinter name opts cfg =
prFAGraphviz $ mapStates (const "") $ cfgToFA name opts cfg
prFAGraphviz $ mapStates (const "") $ cfgToFA opts cfg
-- | Convert the grammar to a regular grammar and print it in BNF
@@ -51,7 +51,7 @@ regularPrinter = prCFRules . makeSimpleRegular
faCPrinter :: Ident -- ^ Grammar name
-> Options -> CGrammar -> String
faCPrinter name opts cfg = fa2c $ cfgToFA name opts cfg
faCPrinter name opts cfg = fa2c $ cfgToFA opts cfg
fa2c :: DFA String -> String
fa2c fa = undefined