CVS: sml-dist/src/cm/tools/main public-tools.sig,1.3,1.4 tools-fn.sml,1.4,1.5

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

Modified Files:
	public-tools.sig tools-fn.sml 
Log Message:
sources for ml-flex added; integration partially done

Index: public-tools.sig
===================================================================
RCS file: /cvsroot/smlnj/sml-dist/src/cm/tools/main/public-tools.sig,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** public-tools.sig	14 Dec 2000 16:01:32 -0000	1.3
--- public-tools.sig	24 Feb 2006 22:23:53 -0000	1.4
***************
*** 26,32 ****
  				    class: string,
  				    suffixes: string list,
! 				    cmdStdPath: string,
  				    extensionStyle: extensionStyle,
  				    template: string option,
  				    dflopts: toolopts } -> unit
  end
--- 26,36 ----
  				    class: string,
  				    suffixes: string list,
! 				    cmdStdPath: unit -> string,
  				    extensionStyle: extensionStyle,
  				    template: string option,
  				    dflopts: toolopts } -> unit
+ 
+     (* make a bool control *)
+     val boolcontrol : string * string * bool ->
+ 		      { get: unit -> bool, set: bool -> unit }
  end

Index: tools-fn.sml
===================================================================
RCS file: /cvsroot/smlnj/sml-dist/src/cm/tools/main/tools-fn.sml,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -d -r1.4 -r1.5
*** tools-fn.sml	9 Jul 2001 15:26:20 -0000	1.4
--- tools-fn.sml	24 Feb 2006 22:23:53 -0000	1.5
***************
*** 50,54 ****
  		     tfiles)
  	    fun runcmd () = let
! 		val cmdname = mkCmdName cmdStdPath
  		val cmd =
  		    Subst.substitute
--- 50,54 ----
  		     tfiles)
  	    fun runcmd () = let
! 		val cmdname = mkCmdName (cmdStdPath ())
  		val cmd =
  		    Subst.substitute
***************
*** 113,115 ****
--- 113,118 ----
  	val _ = registerClass (suffixclass, suffixrule)
      end
+ 
+     fun boolcontrol (name, doc, default) =
+ 	StdConfig.new (ControlUtil.Cvt.bool, name, doc, default)
  end



-------------------------------------------------------
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