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 477, Wed Nov 10 23:04:21 1999 UTC revision 478, Thu Nov 11 03:02:05 1999 UTC
# Line 20  Line 20 
20      val all = ref (StringMap.empty: server StringMap.map)      val all = ref (StringMap.empty: server StringMap.map)
21    
22      val idle = ref ([]: server list)      val idle = ref ([]: server list)
23      val someIdle = ref (Concur.ucond ())      val someIdle = ref (Concur.pcond ())
24    
25      fun fname (n, S { pt = NONE, ... }) = n      fun fname (n, S { pt = NONE, ... }) = n
26        | fname (n, S { pt = SOME f, ... }) =        | fname (n, S { pt = SOME f, ... }) =
# Line 61  Line 61 
61                  (Say.dsay ["Scheduler: taking last idle slave (",                  (Say.dsay ["Scheduler: taking last idle slave (",
62                             servName only, ").\n"];                             servName only, ").\n"];
63                   idle := [];                   idle := [];
64                   someIdle := Concur.ucond ();                   someIdle := Concur.pcond ();
65                   only)                   only)
66            | first :: more => let            | first :: more => let
67                  fun best (b, [], rest) = (b, rest)                  fun best (b, [], rest) = (b, rest)
# Line 159  Line 159 
159              send (s, "ping\n");              send (s, "ping\n");
160              loop ()              loop ()
161          end          end
162          val si = Concur.ucond ()          val si = Concur.pcond ()
163      in      in
164          if List.null al then ()          if List.null al then ()
165          else (Concur.signal si;          else (Concur.signal si;

Legend:
Removed from v.477  
changed lines
  Added in v.478

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