diff options
| author | bringert <bringert@cs.chalmers.se> | 2007-06-21 13:40:13 +0000 |
|---|---|---|
| committer | bringert <bringert@cs.chalmers.se> | 2007-06-21 13:40:13 +0000 |
| commit | 16bfb1250b0bc97d3b1786585c80bcb3d969e874 (patch) | |
| tree | 5839d1c2143b86f34cd31577cccd8c367ac350d9 /src/GF/Speech/TransformCFG.hs | |
| parent | 336273c5344a22f225e54d36b874c6307127b281 (diff) | |
Added makeSRG.
Diffstat (limited to 'src/GF/Speech/TransformCFG.hs')
| -rw-r--r-- | src/GF/Speech/TransformCFG.hs | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/src/GF/Speech/TransformCFG.hs b/src/GF/Speech/TransformCFG.hs index 33ef9771d..a94cf3817 100644 --- a/src/GF/Speech/TransformCFG.hs +++ b/src/GF/Speech/TransformCFG.hs @@ -29,7 +29,7 @@ import GF.Infra.Ident import GF.Infra.Option import GF.Infra.Print import GF.Speech.Relation -import GF.Compile.ShellState (StateGrammar, stateCFG, stateGrammarST, startCatStateOpts) +import GF.Compile.ShellState (StateGrammar, stateCFG, stateGrammarST, startCatStateOpts, stateOptions) import Control.Monad import Control.Monad.State (State, get, put, evalState) @@ -78,7 +78,8 @@ cfgToCFRules s = profileToTerm (C.CId t) (Constant f) = maybe (CFMeta t) (\x -> CFObj x []) (forestName f) getStartCat :: Options -> StateGrammar -> String -getStartCat opts sgr = prCFCat (startCatStateOpts opts sgr) +getStartCat opts sgr = prCFCat (startCatStateOpts opts' sgr) + where opts' = addOptions opts (stateOptions sgr) getStartCatCF :: Options -> StateGrammar -> String getStartCatCF opts sgr = getStartCat opts sgr ++ "{}.s" |