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

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

Parent Directory Parent Directory | Revision Log Revision Log


Revision 3117 - (download) (annotate)
Thu Jul 17 03:31:51 2008 UTC (11 years, 10 months ago) by dbm
File size: 1041 byte(s)
ported changes from sml/branches/temi-branch -r 3005:3116 into trunk
(* edcontrol.sml
 *
 * (C) 2001 Lucent Technologies, Bell Labs
 *)
structure ElabDataControl : ELABDATA_CONTROL = struct

    val priority = [10, 10, 7]
    val obscurity = 6
    val prefix = "ed"

    val registry = ControlRegistry.new { help = "elaborator datastructures" }

    val _ = BasicControl.nest (prefix, registry, priority)

    val bool_cvt = ControlUtil.Cvt.bool

    val nextpri = ref 0

    fun new (n, h, d) = let
	val r = ref d
	val p = !nextpri
	val ctl = Controls.control { name = n,
				     pri = [p],
				     obscurity = obscurity,
				     help = h,
				     ctl = r }
    in
	nextpri := p + 1;
	ControlRegistry.register
	    registry
	    { ctl = Controls.stringControl bool_cvt ctl,
	      envName = SOME (ControlUtil.EnvName.toUpper "ED_" n) };
	r
    end


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

    val tudebugging = new ("tu-debugging", "?", false)
        (* TypesUtil *)

end

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