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 114 - (download) (annotate)
Fri Jun 5 19:41:21 1998 UTC (22 years, 1 month ago) by monnier
File size: 1251 byte(s)
This commit was generated by cvs2svn to compensate for changes in r113,
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$
 *)

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