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/system/smlnj/installer/winlibinstall.sml
ViewVC logotype

View of /sml/trunk/src/system/smlnj/installer/winlibinstall.sml

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1409 - (download) (annotate)
Mon Nov 3 22:00:35 2003 UTC (16 years, 11 months ago) by mblume
File size: 932 byte(s)
made installer honor INSTALLDIR variable properly
(*
 * Win32-specific invocation of LibInstall.proc (see libinstall.sml).
 *
 * (C) 2003 The Fellowship of SML/NJ
 *
 * Author: Matthias Blume (blume@tti-c.org)
 *)
structure WinLibInstall : sig end = struct

    fun proc () = let
	val home = valOf (OS.Process.getEnv "SMLNJ_HOME")

	fun copy { from, to } = let
	    val ins = TextIO.openIn from
	    val outs = TextIO.openOut to
	    fun loop NONE = (TextIO.closeIn ins; TextIO.closeOut outs)
	      | loop (SOME l) = (TextIO.output (outs, l); next ())
	    and next () = loop (TextIO.inputLine ins)
	in
	    next ()
	end
    in
	LibInstall.proc
	    { smlnjroot = home,
	      installdir = home,
	      buildcmd = "build.bat",
	      unpackcmd = NONE,
	      instcmd = fn target =>
			   copy { from = concat [home, "\\config\\",
						 target, ".bat"],
				  to = concat [home, "\\bin\\",
					       target, ".bat"] } }
    end

    (* doit right away *)
    val _ = proc ()
end

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