From a663a046edf310247cf1e82761c79397d9bd42ad Mon Sep 17 00:00:00 2001 From: bringert Date: Tue, 18 Apr 2006 12:42:20 +0000 Subject: Look at both command-line and grammar startcat falgs in pg commands. --- src/GF/Speech/TransformCFG.hs | 5 +---- 1 file changed, 1 insertion(+), 4 deletions(-) (limited to 'src/GF/Speech/TransformCFG.hs') 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])) -- cgit v1.2.3