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

Fixed CFG start cats for categories with more than one constituent.

Browse Source
This commit is contained in:
bjorn
2008-09-30 10:53:36 +00:00
parent 3ca6c605b0
commit 794fbd4a41
1 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
src/GF/Speech/PGFToCFG.hs
View File

@@ -77,11 +77,11 @@ pgfToCFG pgf lang = mkCFG (lookStartCat pgf) extCats (startRules ++ concatMap fr
extCats :: Set Cat extCats :: Set Cat
extCats = Set.fromList $ map lhsCat startRules extCats = Set.fromList $ map lhsCat startRules
-- NOTE: this is only correct for cats that have a lincat with exactly one row.
startRules :: [CFRule] startRules :: [CFRule]
startRules = [CFRule (prCId c) [NonTerminal (fcatToCat fc 0)] (CFRes 0) startRules = [CFRule (prCId c) [NonTerminal (fcatToCat fc r)] (CFRes 0)
| (c,fcs) <- Map.toList (startupCats pinfo), | (c,fcs) <- Map.toList (startupCats pinfo),
fc <- fcs, not (isLiteralFCat fc)] fc <- fcs, not (isLiteralFCat fc),
r <- [0..catLinArity fc-1]]
fruleToCFRule :: FRule -> [CFRule] fruleToCFRule :: FRule -> [CFRule]
fruleToCFRule (FRule f ps args c rhs) = fruleToCFRule (FRule f ps args c rhs) =