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

Diff of /sml/trunk/config/libinstall.sml

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

revision 1380, Wed Sep 17 20:20:51 2003 UTC revision 1381, Wed Sep 17 21:28:41 2003 UTC
# Line 63  Line 63 
63    
64      fun fexists f = F.access (f, []) handle _ => false      fun fexists f = F.access (f, []) handle _ => false
65    
66        fun rmfile f = F.remove f handle _ => ()
67    
68      (* several worklists for delayed execution *)      (* several worklists for delayed execution *)
69      val stablist : (unit -> bool) list ref = ref []      val stablist : (unit -> bool) list ref = ref []
70      val movlist  : (unit -> unit) list ref = ref []      val movlist  : (unit -> unit) list ref = ref []
# Line 239  Line 241 
241                      (srcfinalloc, adir)                      (srcfinalloc, adir)
242          in          in
243              if fexists finalloc then              if fexists finalloc then
244                  say ["Library ", libname, " already exists in ",                  (say ["Library ", libname, " already existed in ",
245                       finalloc, "\n"]                        finalloc, ".  Will rebuild.\n"];
246              else if not (fexists (P.concat (adir, nrelname))) then                   rmfile finalloc)
247                else ();
248                if fexists srcfinalloc then rmfile srcfinalloc else ();
249                if not (fexists (P.concat (adir, nrelname))) then
250                  fail ["Source tree for ", libname, " at ",                  fail ["Source tree for ", libname, " at ",
251                        P.concat (adir, nreldir), "(", relbase,                        P.concat (adir, nreldir), "(", relbase,
252                        ") does not exist.\n"]                        ") does not exist.\n"]

Legend:
Removed from v.1380  
changed lines
  Added in v.1381

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