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

Diff of /sml/trunk/src/cm/concur/concur.sml

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

revision 484, Thu Nov 18 08:46:16 1999 UTC revision 632, Sat Apr 29 15:50:42 2000 UTC
# Line 39  Line 39 
39    
40      (* forget all waiting threads and input conditions *)      (* forget all waiting threads and input conditions *)
41      val reset : unit -> unit      val reset : unit -> unit
42    
43        (* check whether there are any (other) runable tasks... *)
44        val noTasks : unit -> bool
45  end  end
46    
47  structure Concur :> CONCUR = struct  structure Concur :> CONCUR = struct
# Line 72  Line 75 
75    
76      fun reset () = (runable := []; inputs := [])      fun reset () = (runable := []; inputs := [])
77    
78        fun noTasks () = List.null (!runable)
79    
80      (* we heavily favor non-I/O conditions, but that's ok for our purposes *)      (* we heavily favor non-I/O conditions, but that's ok for our purposes *)
81    
82      fun wakeup (ref (Arrived _), _) =      fun wakeup (ref (Arrived _), _) =

Legend:
Removed from v.484  
changed lines
  Added in v.632

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