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/cm/compile/unix-servers.sml
ViewVC logotype

Diff of /sml/trunk/src/cm/compile/unix-servers.sml

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

revision 456, Wed Oct 27 15:09:58 1999 UTC revision 457, Thu Oct 28 05:58:19 1999 UTC
# Line 194  Line 194 
194          else false          else false
195      end      end
196    
197        fun cwdstring () = let
198            val d = OS.FileSys.getDir ()
199        in
200            case OS.Process.getEnv "HOME" of
201                NONE => d
202              | SOME h => OS.Path.mkRelative { path = d, relativeTo = h }
203        end
204    
205        fun namespec (p, s) = fname (SrcPath.descr p, s)
206    
207      fun compile p =      fun compile p =
208          if not (!enabled) orelse !nservers = 0 then false          if not (!enabled) orelse !nservers = 0 then false
209          else let          else let
             val f = SrcPath.osstring p  
210              val s = grab ()              val s = grab ()
211                val f = namespec (p, s)
212          in          in
213              Say.vsay ["[(", servName s, "): compiling ", f, "]\n"];              Say.vsay ["[(", servName s, "): compiling ", f, "]\n"];
214              send (s, concat ["compile ", fname (f, s), "\n"]);              send (s, concat ["compile ", f, "\n"]);
215              wait_status (s, true)              wait_status (s, true)
216          end          end
217    
# Line 216  Line 226 
226      end      end
227    
228      fun cm p = let      fun cm p = let
229          val d = OS.FileSys.getDir ()          val d = cwdstring ()
230          val f = SrcPath.osstring p          fun st s = let
231          fun st s =              val f = namespec (p, s)
232              (Say.vsay ["[(", servName s, "): project ", f, "]\n"];          in
233               send (s, concat ["cm ", fname (d, s), " ", fname (f, s), "\n"]);              Say.vsay ["[(", servName s, "): project ", f, "]\n"];
234               ignore (wait_status (s, false)))              send (s, concat ["cm ", d, " ", f, "\n"]);
235                ignore (wait_status (s, false))
236            end
237      in      in
238          startAll st          startAll st
239      end      end
240    
241      fun cmb { archos, root } = let      fun cmb { archos, root } = let
242          val d = OS.FileSys.getDir ()          val d = cwdstring ()
243          val f = SrcPath.specOf root          val f = SrcPath.descr root
244          fun st s =          fun st s =
245              (Say.vsay ["[(", servName s, "): btcompile for ", archos,              (Say.vsay ["[(", servName s, "): btcompile for ", archos,
246                         ", root = ", f, "]\n"];                         ", root = ", f, "]\n"];
247               send (s, concat ["cmb ", archos, " ",               send (s, concat ["cmb ", archos, " ", d, " ", f, "\n"]);
                               fname (d, s), " ", fname (f, s), "\n"]);  
248               ignore (wait_status (s, false)))               ignore (wait_status (s, false)))
249      in      in
250          startAll st          startAll st

Legend:
Removed from v.456  
changed lines
  Added in v.457

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