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 1368 - (download) (annotate)
Sat Sep 13 04:44:43 2003 UTC (16 years, 1 month ago) by mblume
File size: 788 byte(s)
type of inputLine changed; minor bugfixes; minor installer improvements
(*
 * 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 "" = (TextIO.closeIn ins; TextIO.closeOut outs)
	| loop 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