Home My Page Projects Code Snippets Project Openings SML/NJ
Summary Activity Forums Tracker Lists Tasks Docs Surveys News SCM Files

SCM Repository

[smlnj] Annotation of /sml/trunk/config/winlibinstall.sml
ViewVC logotype

Annotation of /sml/trunk/config/winlibinstall.sml

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1382 - (view) (download)

1 : mblume 1354 (*
2 :     * Win32-specific invocation of LibInstall.proc (see libinstall.sml).
3 :     *
4 :     * (C) 2003 The Fellowship of SML/NJ
5 :     *
6 :     * Author: Matthias Blume (blume@tti-c.org)
7 :     *)
8 :     local
9 :     val home = valOf (OS.Process.getEnv "SMLNJ_HOME")
10 :     fun copy { from, to } = let
11 :     val ins = TextIO.openIn from
12 :     val outs = TextIO.openOut to
13 : mblume 1382 fun loop NONE = (TextIO.closeIn ins; TextIO.closeOut outs)
14 :     | loop (SOME l) = (TextIO.output (outs, l); next ())
15 : mblume 1354 and next () = loop (TextIO.inputLine ins)
16 :     in
17 :     next ()
18 :     end
19 :     in
20 :     val _ = LibInstall.proc
21 :     { smlnjroot = home,
22 :     buildcmd = "build.bat",
23 :     unpackcmd = NONE,
24 :     instcmd = fn target =>
25 :     copy { from = concat [home, "\\config\\",
26 :     target, ".bat"],
27 :     to = concat [home, "\\bin\\",
28 :     target, ".bat"] } }
29 :     end

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