diff options
| author | bringert <bringert@cs.chalmers.se> | 2006-04-18 12:42:20 +0000 |
|---|---|---|
| committer | bringert <bringert@cs.chalmers.se> | 2006-04-18 12:42:20 +0000 |
| commit | a663a046edf310247cf1e82761c79397d9bd42ad (patch) | |
| tree | 16eca208e65faad7dc34db9fc35e9b2734721fa1 /src/GF/Speech/TransformCFG.hs | |
| parent | 5ccf994499a215480bebecc31411db0217debb93 (diff) | |
Look at both command-line and grammar startcat falgs in pg commands.
Diffstat (limited to 'src/GF/Speech/TransformCFG.hs')
| -rw-r--r-- | src/GF/Speech/TransformCFG.hs | 5 |
1 files changed, 1 insertions, 4 deletions
diff --git a/src/GF/Speech/TransformCFG.hs b/src/GF/Speech/TransformCFG.hs index b1ddcbde2..27435ed89 100644 --- a/src/GF/Speech/TransformCFG.hs +++ b/src/GF/Speech/TransformCFG.hs @@ -19,7 +19,7 @@ -- FIXME: lots of this stuff is used by CFGToFiniteState, thus -- the missing explicit expot list. module GF.Speech.TransformCFG {- (CFRule_, CFRules, - cfgToCFRules, getStartCat, + cfgToCFRules, removeLeftRecursion, removeEmptyCats, removeIdenticalRules) -} where @@ -56,9 +56,6 @@ cfgToCFRules cfg = groupProds [CFRule (catToString c) (map symb r) n | CFRule c -- symb (Tok t) = Tok t catToString = prt -getStartCat :: Options -> String -getStartCat opts = fromMaybe "S" (getOptVal opts gStartCat) ++ "{}.s" - -- | Group productions by their lhs categories groupProds :: [CFRule_] -> CFRules groupProds = Map.toList . Map.fromListWith (++) . map (\r -> (lhsCat r,[r])) |