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/branches/SMLNJ/src/MLRISC/visualization/graphLayout.sml
ViewVC logotype

Annotation of /sml/branches/SMLNJ/src/MLRISC/visualization/graphLayout.sml

Parent Directory Parent Directory | Revision Log Revision Log


Revision 245 - (view) (download)

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

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