CVS: sml-dist/src/cm/util stdcfg.sml,1.18,1.19

Update of /cvsroot/smlnj/sml-dist/src/cm/util
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv27912/src/cm/util

Modified Files:
	stdcfg.sml 
Log Message:
sources for ml-flex added; integration partially done

Index: stdcfg.sml
===================================================================
RCS file: /cvsroot/smlnj/sml-dist/src/cm/util/stdcfg.sml,v
retrieving revision 1.18
retrieving revision 1.19
diff -C2 -d -r1.18 -r1.19
*** stdcfg.sml	13 Jul 2004 18:49:53 -0000	1.18
--- stdcfg.sml	24 Feb 2006 22:23:53 -0000	1.19
***************
*** 34,37 ****
--- 34,44 ----
  	val nextpri = ref 0
  
+ 	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
  	fun new (c, n, h, d) = let
  	    val r = ref d
***************
*** 51,61 ****
  	      get = fn () => !r }
  	end
! 	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
          val verbose = new (bool_cvt, "verbose", "CM chattiness", true)
  	val debug = new (bool_cvt, "debug", "CM debug mode", false)
--- 58,62 ----
  	      get = fn () => !r }
  	end
! 
          val verbose = new (bool_cvt, "verbose", "CM chattiness", true)
  	val debug = new (bool_cvt, "debug", "CM debug mode", false)



-------------------------------------------------------
This SF.Net email is sponsored by xPML, a groundbreaking scripting language
that extends applications into web and mobile media. Attend the live webcast
and join the prime developer group breaking into this new coding territory!
http://sel.as-us.falkag.net/sel?cmd=lnk&kid=110944&bid=241720&dat=121642