From 16bfb1250b0bc97d3b1786585c80bcb3d969e874 Mon Sep 17 00:00:00 2001 From: bringert Date: Thu, 21 Jun 2007 13:40:13 +0000 Subject: Added makeSRG. --- src/GF/Speech/TransformCFG.hs | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) (limited to 'src/GF/Speech/TransformCFG.hs') 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" -- cgit v1.2.3