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

one missing case in dep trees

Browse Source
This commit is contained in:
aarne
2009-10-19 12:47:31 +00:00
parent 4cacaf6097
commit dd57104d1c
1 changed files with 1 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
src/PGF/VisualizeTree.hs
View File

@@ -90,6 +90,7 @@ dependencyTree ms pgf lang exp = prGraph True lin2dep where
hx = headArg (init x) tr x hx = headArg (init x) tr x
headArg x0 tr x = case (tr,x) of headArg x0 tr x = case (tr,x) of
(Fun f [],[_]) -> x0 ---- ??
(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
@@ -98,10 +99,6 @@ dependencyTree ms pgf lang exp = prGraph True lin2dep where
(Fun f ts,[_]) -> showCId f ++ "#" ++ show (last (0:x)) ---- (Fun f ts,[_]) -> showCId f ++ "#" ++ show (last (0:x)) ----
(Fun f ts,i:y) -> label (ts !! i) y 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
if x' == x then [] else word x' if x' == x then [] else word x'