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/control/mlrisc-view-style.sml
ViewVC logotype

Annotation of /sml/trunk/src/MLRISC/control/mlrisc-view-style.sml

Parent Directory Parent Directory | Revision Log Revision Log


Revision 224 - (view) (download)

1 : monnier 16 signature MLRISC_GRAPH_STYLE = sig
2 :     val node_color : string ref
3 :     val edge_color : string ref
4 :     end
5 :    
6 :     signature MLRISC_VIEW_STYLE = sig
7 :     val font : string ref
8 :     val background : string ref
9 :     val foreground : string ref
10 :     val viewer : string ref
11 :     val vcg : string ref
12 :     val daVinci : string ref
13 :    
14 :     structure CPS : MLRISC_GRAPH_STYLE
15 :     structure CFG : MLRISC_GRAPH_STYLE
16 :     structure DOM : MLRISC_GRAPH_STYLE
17 :     structure CDG : MLRISC_GRAPH_STYLE
18 :     structure Interval : MLRISC_GRAPH_STYLE
19 :     structure Region : MLRISC_GRAPH_STYLE
20 :     structure RA : MLRISC_GRAPH_STYLE
21 :     end
22 :    
23 :     functor NewStyle() = struct
24 :     val node_color = ref "white"
25 :     val edge_color = ref "red"
26 :     end
27 :    
28 :     structure MLRISC_ViewStyle : MLRISC_VIEW_STYLE =
29 :     struct
30 :     val font = ref ""
31 :     val foreground = ref ""
32 :     val background = ref ""
33 :     val viewer = ref "daVinci"
34 :     val vcg = ref "xvcg -font 10x20"
35 :     val daVinci = ref "daVinci -font 10x20"
36 :    
37 :     structure CPS = NewStyle()
38 :     structure CFG = NewStyle()
39 :     structure DOM = NewStyle()
40 :     structure CDG = NewStyle()
41 :     structure Interval = NewStyle()
42 :     structure Region = NewStyle()
43 :     structure RA = NewStyle()
44 :     end
45 :    
46 :     (*
47 : monnier 223 * $Log: mlrisc-view-style.sml,v $
48 :     * Revision 1.1.1.2 1998/11/16 21:47:30 george
49 :     * Version 110.10
50 :     *
51 :     * Revision 1.1.1.1 1998/04/08 18:39:01 george
52 :     * Version 110.5
53 :     *
54 : monnier 16 *)

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