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

SCM Repository

[smlnj] View of /sml/trunk/src/MLRISC/control/mlrisc-view-style.sml
ViewVC logotype

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

Parent Directory Parent Directory | Revision Log Revision Log


Revision 224 - (download) (annotate)
Sat Apr 17 16:27:01 1999 UTC (20 years, 3 months ago) by monnier
File size: 1418 byte(s)
This commit was generated by cvs2svn to compensate for changes in r223,
which included commits to RCS files with non-trunk default branches.
signature MLRISC_GRAPH_STYLE = sig
   val node_color : string ref
   val edge_color : string ref
end

signature MLRISC_VIEW_STYLE = sig
   val font       : string ref
   val background : string ref
   val foreground : string ref
   val viewer     : string ref
   val vcg        : string ref
   val daVinci    : string ref

   structure CPS      : MLRISC_GRAPH_STYLE
   structure CFG      : MLRISC_GRAPH_STYLE
   structure DOM      : MLRISC_GRAPH_STYLE
   structure CDG      : MLRISC_GRAPH_STYLE
   structure Interval : MLRISC_GRAPH_STYLE
   structure Region   : MLRISC_GRAPH_STYLE
   structure RA       : MLRISC_GRAPH_STYLE
end

functor NewStyle() = struct 
  val node_color = ref "white"
  val edge_color = ref "red"
end

structure MLRISC_ViewStyle : MLRISC_VIEW_STYLE =
struct
   val font       = ref ""
   val foreground = ref ""
   val background = ref ""
   val viewer     = ref "daVinci"
   val vcg        = ref "xvcg -font 10x20" 
   val daVinci    = ref "daVinci -font 10x20"

   structure CPS      = NewStyle()
   structure CFG      = NewStyle()
   structure DOM      = NewStyle()
   structure CDG      = NewStyle()
   structure Interval = NewStyle()
   structure Region   = NewStyle()
   structure RA       = NewStyle()
end

(*
 * $Log: mlrisc-view-style.sml,v $
 * Revision 1.1.1.2  1998/11/16 21:47:30  george
 *   Version 110.10
 *
 * Revision 1.1.1.1  1998/04/08 18:39:01  george
 * Version 110.5
 *
 *)

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