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/compiler/ElabData/main/edcontrol.sml
ViewVC logotype

View of /sml/trunk/src/compiler/ElabData/main/edcontrol.sml

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1145 - (download) (annotate)
Fri Mar 15 02:30:53 2002 UTC (17 years, 5 months ago) by blume
File size: 614 byte(s)
moved Controls module into its own library;
changed Controls interface to make it saner;
made MLRISC independent of Controls;
minor changes to CM
(* edcontrol.sml
 *
 * (C) 2001 Lucent Technologies, Bell Labs
 *)
structure ElabDataControl : ELABDATA_CONTROL = struct

    val m = Controls.registry { name = "elaborator datastructures",
				priority = [10, 10, 7],
				obscurity = 6,
				prefix = "ed-",
				default_suffix = SOME "-default",
				mk_ename = NONE }

    val b = Controls.group m Controls.bool

    fun new (s, d, f) = Controls.new b { stem = s, descr = d, fallback = f }

    val saveLvarNames = new ("save-lvar-names", "?", false)
    val eedebugging = new ("ee-debugging", "?", false)
    val mudebugging = new ("mu-debugging", "?", false)
end

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