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

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

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

revision 1536, Tue Jul 13 18:30:33 2004 UTC revision 1537, Tue Jul 13 18:49:54 2004 UTC
# Line 287  Line 287 
287                   write_cm_pathconfig (finalanchor, finalconfigpath))                   write_cm_pathconfig (finalanchor, finalconfigpath))
288          end          end
289    
290            fun command_pathconfig target =
291                write_cm_pathconfig (target, P.concat (P.parentArc, "bin"))
292    
293          (* build a standalone program, using auxiliary build script *)          (* build a standalone program, using auxiliary build script *)
294          fun standalone { target, optheapdir, optsrcdir } = let          fun standalone { target, optheapdir, optsrcdir } = let
295              (* target: name of program; this is the same as the basename              (* target: name of program; this is the same as the basename
# Line 331  Line 334 
334                                 " still missing.\n"]                                 " still missing.\n"]
335                   else                   else
336                       fail ["Building ", target, " failed.\n"];                       fail ["Building ", target, " failed.\n"];
337                   write_cm_pathconfig (target, P.concat (P.parentArc, "bin"));                   command_pathconfig target;
338                   F.chDir smlnjroot)                   F.chDir smlnjroot)
339          end          end
340    
# Line 412  Line 415 
415                          :: !salist                          :: !salist
416            | one module = fail ["unknown module: ", module, "\n"]            | one module = fail ["unknown module: ", module, "\n"]
417      in      in
418          (app one modules;          (command_pathconfig "bindir";   (* dummy -- for CM make tool *)
419             app one modules;
420           if dostabs () andalso domoves () andalso dolatesas () then           if dostabs () andalso domoves () andalso dolatesas () then
421               uniqconfig ()               uniqconfig ()
422           else fail ["stabilization failed\n"])           else fail ["stabilization failed\n"])

Legend:
Removed from v.1536  
changed lines
  Added in v.1537

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