GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-04-24 03:52:50 -06:00
Code Issues Packages Projects Releases Wiki Activity

labels in dep trees (preliminary)

Browse Source
This commit is contained in:
aarne
2009-10-19 08:47:44 +00:00
parent 4f7595b1f5
commit 650aab234a
1 changed files with 13 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
src/PGF/VisualizeTree.hs
View File

@@ -75,8 +75,11 @@ dependencyTree ms pgf lang exp = prGraph True lin2dep where
nodeWords = (0,((mkCId "",[]),["ROOT"])) : zip [1..] [((f,p),w)| nodeWords = (0,((mkCId "",[]),["ROOT"])) : zip [1..] [((f,p),w)|
((Just f,p),w) <- wlins pot] ((Just f,p),w) <- wlins pot]
links = map mkLink [(word (dominant x), x, label f x) | (_,((f,x),_)) <- tail nodeWords] links = map mkLink
mkLink (x,y,l) = node x ++ " -> " ++ node y ---- ++ " {label = \"" ++ l ++ "\"}" [(word y, x, label tr y x) |
(_,((f,x),_)) <- tail nodeWords,
let y = dominant x]
mkLink (x,y,l) = node x ++ " -> " ++ node y ++ " [label = \"" ++ l ++ "\"] ;"
node = show . show node = show . show
dominant x = case x of dominant x = case x of
@@ -90,7 +93,14 @@ dependencyTree ms pgf lang exp = prGraph True lin2dep where
(Fun f ts,[_]) -> x0 ++ [length ts - 1] ---- TODO: head as other than last arg (Fun f ts,[_]) -> x0 ++ [length ts - 1] ---- TODO: head as other than last arg
(Fun f ts,i:y) -> headArg x0 (ts !! i) y (Fun f ts,i:y) -> headArg x0 (ts !! i) y
label f x = showCId f ++ "#" ++ show (last x) label tr y x = case (tr,y) of
(_, []) -> ""
(Fun f ts,[_]) -> showCId f ++ "#" ++ show (last (0:x)) ----
(Fun f ts,i:y) -> label (ts !! i) y x
word x = if elem x sortedNodes then x else word x = if elem x sortedNodes then x else
let x' = headArg x tr (x ++[0]) in let x' = headArg x tr (x ++[0]) in