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

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

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

revision 1505, Thu Jun 17 20:41:47 2004 UTC revision 1506, Thu Jun 17 22:19:15 2004 UTC
# Line 15  Line 15 
15      structure P = Posix      structure P = Posix
16    
17      type pathtrans = (string -> string) option      type pathtrans = (string -> string) option
18      datatype server = S of { id: int,      datatype server =
19                 S of { id: int,
20                               name: string,                               name: string,
21                               proc: Unix.proc,                      proc: (TextIO.instream, TextIO.outstream) Unix.proc,
22                               pt: pathtrans,                               pt: pathtrans,
23                               pref: int,                               pref: int,
24                               decommissioned: bool ref }                               decommissioned: bool ref }
# Line 155  Line 156 
156    
157          fun serverExit () = let          fun serverExit () = let
158              val what =              val what =
159                  case pprotect (fn () => Unix.reap (servProc s)) of                  if pprotect (fn () => Unix.reap (servProc s))
160                      (P.Process.W_EXITED | P.Process.W_EXITSTATUS 0w0) =>                     = OS.Process.success
161                          "shut down"                  then "shut down"
162                    | _ => "crashed"                  else "crashed"
163          in          in
164              decommission s;              decommission s;
165              Say.say ["[!Slave ", name, " has ", what, ".]\n"];              Say.say ["[!Slave ", name, " has ", what, ".]\n"];

Legend:
Removed from v.1505  
changed lines
  Added in v.1506

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