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

SCM Repository

[smlnj] Annotation of /sml/trunk/src/MLRISC/visualization/graphLayout.sml
ViewVC logotype

Annotation of /sml/trunk/src/MLRISC/visualization/graphLayout.sml

Parent Directory Parent Directory | Revision Log Revision Log


Revision 411 - (view) (download)
Original Path: sml/branches/SMLNJ/src/MLRISC/visualization/graphLayout.sml

1 : monnier 411 (*
2 :     * Here are some graph layout annotations.
3 :     *
4 :     * -- Allen
5 :     *)
6 :    
7 : monnier 245 structure GraphLayout =
8 :     struct
9 :    
10 :     exception LABEL of string
11 :     exception COLOR of string
12 :     exception NODE_COLOR of string
13 :     exception EDGE_COLOR of string
14 :     exception TEXT_COLOR of string
15 :     exception ARROW_COLOR of string
16 :     exception BACKARROW_COLOR of string
17 :     exception BORDER_COLOR of string
18 :     exception BORDERLESS
19 : monnier 411 exception SHAPE of string
20 : monnier 245 exception ALGORITHM of string
21 :     exception EDGEPATTERN of string
22 :    
23 :     type annotations = Annotations.annotations
24 :    
25 :     type ('n,'e,'g) style =
26 :     { edge : 'e Graph.edge -> annotations,
27 :     node : 'n Graph.node -> annotations,
28 :     graph : 'g -> annotations
29 :     }
30 :    
31 :     type layout = (annotations, annotations, annotations) Graph.graph
32 :    
33 :     fun makeLayout {node,edge,graph} G =
34 :     IsomorphicGraphView.map node edge graph G
35 :    
36 :     end
37 :    

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