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/config/winlibinstall.sml
ViewVC logotype

View of /sml/trunk/config/winlibinstall.sml

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1382 - (download) (annotate)
Wed Sep 17 22:24:52 2003 UTC (15 years, 11 months ago) by mblume
File size: 797 byte(s)
some win32-specific updates related to previous commit
(*
 * Win32-specific invocation of LibInstall.proc (see libinstall.sml).
 *
 * (C) 2003 The Fellowship of SML/NJ
 *
 * Author: Matthias Blume (blume@tti-c.org)
 *)
local
  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
    val _ = LibInstall.proc
		{ smlnjroot = home,
		  buildcmd = "build.bat",
		  unpackcmd = NONE,
		  instcmd = fn target =>
			       copy { from = concat [home, "\\config\\",
						     target, ".bat"],
				      to = concat [home, "\\bin\\",
						   target, ".bat"] } }
end

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