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

SCM Repository

[smlnj] Diff of /sml/trunk/src/system/smlnj/installer/nixlibinstall.sml
ViewVC logotype

Diff of /sml/trunk/src/system/smlnj/installer/nixlibinstall.sml

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1724, Mon Dec 13 20:45:51 2004 UTC revision 1725, Tue Dec 14 23:23:41 2004 UTC
# Line 12  Line 12 
12          val installdir = getOpt (OS.Process.getEnv "INSTALLDIR", home)          val installdir = getOpt (OS.Process.getEnv "INSTALLDIR", home)
13          val configdir = getOpt (OS.Process.getEnv "CONFIGDIR",          val configdir = getOpt (OS.Process.getEnv "CONFIGDIR",
14                                  OS.Path.concat (home, "config"))                                  OS.Path.concat (home, "config"))
15          val unpack = OS.Path.concat (configdir, "unpack")          val unpackcmd = OS.Path.concat (configdir, "unpack")
16            fun unpack modules =
17                let val cmdline =
18                        concat ("\"" :: unpackcmd :: "\" \"" :: home :: "\"" ::
19                                foldl (fn (f, l) => " " :: f :: l) [] modules)
20                in OS.Process.system cmdline = OS.Process.success
21                end
22          val bindir = getOpt (OS.Process.getEnv "BINDIR",          val bindir = getOpt (OS.Process.getEnv "BINDIR",
23                               OS.Path.concat (installdir, "bin"))                               OS.Path.concat (installdir, "bin"))
24          fun bincmd cmd = OS.Path.concat (bindir, cmd)          fun bincmd cmd = OS.Path.concat (bindir, cmd)
# Line 21  Line 27 
27          LibInstall.proc { smlnjroot = home,          LibInstall.proc { smlnjroot = home,
28                            installdir = installdir,                            installdir = installdir,
29                            buildcmd = "CM_LOCAL_PATHCONFIG=/dev/null ./build",                            buildcmd = "CM_LOCAL_PATHCONFIG=/dev/null ./build",
30                            unpackcmd = SOME unpack,                            unpack = SOME unpack,
31                            instcmd = fn target => let                            instcmd = fn target => let
32                                             val new = bincmd target                                             val new = bincmd target
33                                         in                                         in

Legend:
Removed from v.1724  
changed lines
  Added in v.1725

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