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

fix for multiword phrases in Malt format

Browse Source
This commit is contained in:
aarne
2009-10-20 19:27:42 +00:00
parent cf6011d9a6
commit 70b5e2a930
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
src/PGF/VisualizeTree.hs
View File

@@ -139,13 +139,13 @@ dependencyTree format debug mlab ms pgf lang exp = case format of
Just (q,l) -> (maybe 0 id (Map.lookup q nodeMap), if null l then rootlabel else l) Just (q,l) -> (maybe 0 id (Map.lookup q nodeMap), if null l then rootlabel else l)
_ -> (0,rootlabel) _ -> (0,rootlabel)
wnodes = [[show i, unwords ws, showCId fun, pos, pos, morph, show dom, lab, unspec, unspec] | wnodes = [[show i, maltws ws, showCId fun, pos, pos, morph, show dom, lab, unspec, unspec] |
(i, ((fun,p),ws)) <- tail nodeWords, (i, ((fun,p),ws)) <- tail nodeWords,
let pos = showCId $ lookValCat pgf fun, let pos = showCId $ lookValCat pgf fun,
let morph = unspec, let morph = unspec,
let (dom,lab) = lookDomLab p let (dom,lab) = lookDomLab p
] ]
maltws = concat . intersperse "+" . words . unwords -- no spaces in column 2
unspec = "_" unspec = "_"
rootlabel = "ROOT" rootlabel = "ROOT"