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

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

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

revision 497, Tue Dec 7 15:44:50 1999 UTC revision 498, Tue Dec 7 15:44:50 1999 UTC
# Line 4  Line 4 
4   * -- Allen   * -- Allen
5   *)   *)
6    
7  functor AllDisplaysFn (val viewer : string ref) :  structure AllDisplays : GRAPH_DISPLAY =
 sig  
    include GRAPH_DISPLAY  
    val viewer : string ref  
 end =  
8  struct  struct
9    
10     val viewer = viewer     val viewer = MLRiscControl.getString "viewer"
11    
12     fun visualize print =     fun visualize print =
13         (case !viewer of         (case !viewer of

Legend:
Removed from v.497  
changed lines
  Added in v.498

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