Home My Page Projects Code Snippets Project Openings SML/NJ
Summary Activity Forums Tracker Lists Tasks Docs Surveys News SCM Files

SCM Repository

[smlnj] Diff of /sml/trunk/src/MLRISC/visualization/daVinci.sml
ViewVC logotype

Diff of /sml/trunk/src/MLRISC/visualization/daVinci.sml

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 411, Fri Sep 3 00:25:03 1999 UTC revision 469, Wed Nov 10 22:42:52 1999 UTC
# Line 10  Line 10 
10     structure L = GraphLayout     structure L = GraphLayout
11     structure G = Graph     structure G = Graph
12    
    exception DIR  
   
13     fun suffix() = ".daVinci"     fun suffix() = ".daVinci"
14     fun program() = "daVinci"     fun program() = "daVinci"
15    
# Line 55  Line 53 
53         and edgeAttrib (L.COLOR c)       = EDGECOLOR c         and edgeAttrib (L.COLOR c)       = EDGECOLOR c
54           | edgeAttrib (L.ARROW_COLOR c) = EDGECOLOR c           | edgeAttrib (L.ARROW_COLOR c) = EDGECOLOR c
55           | edgeAttrib (L.EDGEPATTERN p) = atom("EDGEPATTERN",p)           | edgeAttrib (L.EDGEPATTERN p) = atom("EDGEPATTERN",p)
56           | edgeAttrib DIR = Dir()           | edgeAttrib L.DIR = Dir()
57           | edgeAttrib _ = ()           | edgeAttrib _ = ()
58    
59         and isEdgeAttrib (L.COLOR c)       = true         and isEdgeAttrib (L.COLOR c)       = true
60           | isEdgeAttrib (L.ARROW_COLOR c) = true           | isEdgeAttrib (L.ARROW_COLOR c) = true
61           | isEdgeAttrib (L.EDGEPATTERN p) = true           | isEdgeAttrib (L.EDGEPATTERN p) = true
62           | isEdgeAttrib (DIR) = true           | isEdgeAttrib (L.DIR) = true
63           | isEdgeAttrib _ = false           | isEdgeAttrib _ = false
64    
65         and findEdgeLabel ((L.LABEL "")::l) = findEdgeLabel l         and findEdgeLabel ((L.LABEL "")::l) = findEdgeLabel l
# Line 91  Line 89 
89    
90         and doEdge t (i,j,a) =         and doEdge t (i,j,a) =
91            ((findEdgeLabel a;            ((findEdgeLabel a;
92              tab t; out "l(\""; int i; out "->"; int j; out "\",e(\"\",\n";              tab t; out "l(\"";
93                int i; out "->"; int j;
94                (* dummy label; daVinci chokes on duplicated edge names *)
95                out "-"; out(newLabel());
96                out "\",e(\"\",\n";
97              attribs (t+2) (isEdgeAttrib,edgeAttrib) a;              attribs (t+2) (isEdgeAttrib,edgeAttrib) a;
98              tab t; out ",r(\""; int j; out "\")))")              tab t; out ",r(\""; int j; out "\")))")
99              handle FOUND l =>              handle FOUND l =>
100              let val x = newLabel()              let val x = newLabel()
101              in              in
102              (tab t; out "l(\""; int i; out("->"^x^"\",e(\"\",");              (tab t; out "l(\""; int i; out("->"^x^"\",e(\"\",");
103               attribs (t+2) (isEdgeAttrib,edgeAttrib) (DIR::a);               attribs (t+2) (isEdgeAttrib,edgeAttrib) (L.DIR::a);
104               out ",l(\""; out(newLabel());               out ",l(\""; out(newLabel());
105               out "\",n(\"\",[a(\"OBJECT\",\"";               out "\",n(\"\",[a(\"OBJECT\",\"";
106               out l; out "\"),a(\"_GO\",\"text\")],";               out l; out "\"),a(\"_GO\",\"text\")],";

Legend:
Removed from v.411  
changed lines
  Added in v.469

root@smlnj-gforge.cs.uchicago.edu
ViewVC Help
Powered by ViewVC 1.0.0