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

Sync FCFG with the latest repo version

Browse Source
This commit is contained in:
kr.angelov
2006-06-19 20:17:05 +00:00
parent 694f6eb984
commit cb168e92e2
2 changed files with 16 additions and 27 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
src/GF/Parsing/MCFG/FastActive.hs
View File

@@ -39,8 +39,9 @@ import Data.Array
-- parse :: (Ord c, Ord n, Ord l, Ord t) => String -> MCFParser c n l t
parse strategy pinfo starts =
[ Abs (cat, found) (zip rhs rrecs) fun |
Final (Abs cat rhs fun) found rrecs <- listXChartFinal chart ]
accumAssoc groupSyntaxNodes $
[ ((cat, found), SNode fun (zip rhs rrecs)) |
Final (Abs cat rhs fun) found rrecs <- listXChartFinal chart ]
where chart = process strategy pinfo axioms emptyXChart
-- axioms | isBU strategy = terminal pinfo toks ++ initialScan pinfo toks