diff options
| author | krasimir <krasimir@chalmers.se> | 2010-05-19 13:32:39 +0000 |
|---|---|---|
| committer | krasimir <krasimir@chalmers.se> | 2010-05-19 13:32:39 +0000 |
| commit | e0dc9c80a6cbb45254f7e20d50894267aa2a3532 (patch) | |
| tree | 07f02914c96664da1e57fcb2558f84ced6cc05ff /src/runtime/haskell/PGF/VisualizeTree.hs | |
| parent | 1743e88192d3395221d8a023aee319182055191d (diff) | |
now every BracketedString also has reference to the source expression(s)
Diffstat (limited to 'src/runtime/haskell/PGF/VisualizeTree.hs')
| -rw-r--r-- | src/runtime/haskell/PGF/VisualizeTree.hs | 18 |
1 files changed, 9 insertions, 9 deletions
diff --git a/src/runtime/haskell/PGF/VisualizeTree.hs b/src/runtime/haskell/PGF/VisualizeTree.hs index 098d6a07f..542044b2d 100644 --- a/src/runtime/haskell/PGF/VisualizeTree.hs +++ b/src/runtime/haskell/PGF/VisualizeTree.hs @@ -22,7 +22,7 @@ module PGF.VisualizeTree , graphvizBracketedString , graphvizAlignment , getDepLabels - ) where + ) where import PGF.CId (CId,showCId,ppCId,mkCId) import PGF.Data @@ -122,8 +122,8 @@ graphvizDependencyTree format debug mlab ms pgf lang t = render $ getLeaves parent bs = case bs of - Leaf w -> [(parent,w)] - Bracket _ fid _ bss -> concatMap (getLeaves fid) bss + Leaf w -> [(parent,w)] + Bracket _ fid _ _ bss -> concatMap (getLeaves fid) bss mkNode (p,i,w) = tag p <> text " [label = " <> doubleQuotes (int i <> char '.' <+> text w) <> text "] ;" @@ -234,13 +234,13 @@ graphvizBracketedString = render . lin2tree getLeaves level parent bs = case bs of - Leaf w -> [(level-1,parent,w)] - Bracket _ fid i bss -> concatMap (getLeaves (level+1) fid) bss + Leaf w -> [(level-1,parent,w)] + Bracket _ fid i _ bss -> concatMap (getLeaves (level+1) fid) bss getInterns level [] = [] getInterns level nodes = - nub [(level-1,parent,fid,showCId cat) | (parent,Bracket cat fid _ _) <- nodes] : - getInterns (level+1) [(fid,child) | (_,Bracket _ fid _ children) <- nodes, child <- children] + nub [(level-1,parent,fid,showCId cat) | (parent,Bracket cat fid _ _ _) <- nodes] : + getInterns (level+1) [(fid,child) | (_,Bracket _ fid _ _ children) <- nodes, child <- children] mkStruct l cs = struct l <> text "[label = \"" <> fields cs <> text "\"] ;" $$ vcat [link pl pid l id | (pl,pid,id,_) <- cs] @@ -290,8 +290,8 @@ graphvizAlignment pgf langs = render . lin2graph . linsBracketed getLeaves parent bs = case bs of - Leaf w -> [(parent,w)] - Bracket _ fid _ bss -> concatMap (getLeaves fid) bss + Leaf w -> [(parent,w)] + Bracket _ fid _ _ bss -> concatMap (getLeaves fid) bss mkLayers l [] = empty mkLayers l (cs:css) = struct l <> text "[label = \"" <> fields cs <> text "\"] ;" $$ |