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

generate metavariables in the tree extraction for PMCFG

Browse Source
This commit is contained in:
krasimir
2008-10-15 08:02:12 +00:00
parent 5f33e0bda9
commit 4fa3eb87cd
1 changed files with 12 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files

23
src/PGF/Parsing/FCFG/Incremental.hs
View File

@@ -108,18 +108,19 @@ extractExps (State pinfo chart items) start = exps
let FFun fn _ lins = functions pinfo ! funid let FFun fn _ lins = functions pinfo ! funid
lbl <- indices lins lbl <- indices lins
Just fid <- [lookupPC (PK cat lbl 0) (passive st)] Just fid <- [lookupPC (PK cat lbl 0) (passive st)]
go Set.empty fid go Set.empty 0 (0,fid)
go rec fcat go rec fcat' (d,fcat)
| Set.member fcat rec = mzero | fcat < totalCats pinfo = [Meta (fcat'*10+d)] -- FIXME: here we assume that every rule has at most 10 arguments
| otherwise = foldForest (\funid args trees -> | Set.member fcat rec = mzero
do let FFun fn _ lins = functions pinfo ! funid | otherwise = foldForest (\funid args trees ->
args <- mapM (go (Set.insert fcat rec)) args do let FFun fn _ lins = functions pinfo ! funid
return (Fun fn args) args <- mapM (go (Set.insert fcat rec) fcat) (zip [0..] args)
`mplus` return (Fun fn args)
trees) `mplus`
(\lit _ trees -> Lit lit : trees) trees)
[] fcat (forest st) (\lit _ trees -> Lit lit : trees)
[] fcat (forest st)
process fn !seqs !funs [] acc chart = (acc,chart) process fn !seqs !funs [] acc chart = (acc,chart)