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/allDisplays.sml
ViewVC logotype

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

Parent Directory Parent Directory | Revision Log Revision Log


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

1 : monnier 411 (*
2 :     * This module ties together all the visualization backends.
3 :     *
4 :     * -- Allen
5 :     *)
6 :    
7 : monnier 245 functor AllDisplaysFn (val viewer : string ref) :
8 :     sig
9 :     include GRAPH_DISPLAY
10 :     val viewer : string ref
11 :     end =
12 :     struct
13 :    
14 :     val viewer = viewer
15 :    
16 :     fun visualize print =
17 :     (case !viewer of
18 :     "daVinci" => daVinci.visualize print
19 :     | "vcg" => VCG.visualize print
20 :     | _ => daVinci.visualize print
21 :     )
22 :    
23 :     fun program() =
24 :     (case !viewer of
25 :     "daVinci" => daVinci.program()
26 :     | "vcg" => VCG.program()
27 :     | _ => daVinci.program()
28 :     )
29 :    
30 :     fun suffix() =
31 :     (case !viewer of
32 :     "daVinci" => daVinci.suffix()
33 :     | "vcg" => VCG.suffix()
34 :     | _ => daVinci.suffix()
35 :     )
36 :    
37 :     end

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