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/cm/util/stdcfg.sml
ViewVC logotype

Diff of /sml/trunk/src/cm/util/stdcfg.sml

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

revision 1894, Thu Feb 23 22:18:34 2006 UTC revision 1895, Fri Feb 24 22:23:53 2006 UTC
# Line 33  Line 33 
33    
34          val nextpri = ref 0          val nextpri = ref 0
35    
36            val lib_pathconfig =
37                OS.Path.toString { isAbs = false, vol = "",
38                                   arcs = ["lib", "pathconfig"] }
39            val usr_lib_smlnj_pathconfig =
40                OS.Path.toString { isAbs = true, vol = "",
41                                   arcs = ["usr", "lib", "smlnj-pathconfig"] }
42        in
43          fun new (c, n, h, d) = let          fun new (c, n, h, d) = let
44              val r = ref d              val r = ref d
45              val p = !nextpri              val p = !nextpri
# Line 50  Line 57 
57              { set = fn x => r := x,              { set = fn x => r := x,
58                get = fn () => !r }                get = fn () => !r }
59          end          end
60          val lib_pathconfig =  
             OS.Path.toString { isAbs = false, vol = "",  
                                arcs = ["lib", "pathconfig"] }  
         val usr_lib_smlnj_pathconfig =  
             OS.Path.toString { isAbs = true, vol = "",  
                                arcs = ["usr", "lib", "smlnj-pathconfig"] }  
     in  
61          val verbose = new (bool_cvt, "verbose", "CM chattiness", true)          val verbose = new (bool_cvt, "verbose", "CM chattiness", true)
62          val debug = new (bool_cvt, "debug", "CM debug mode", false)          val debug = new (bool_cvt, "debug", "CM debug mode", false)
63          val keep_going = new (bool_cvt, "keep-going",          val keep_going = new (bool_cvt, "keep-going",

Legend:
Removed from v.1894  
changed lines
  Added in v.1895

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