diff options
author | Enrico Tassi <Enrico.Tassi@inria.fr> | 2014-06-26 15:38:49 +0200 |
---|---|---|
committer | Enrico Tassi <Enrico.Tassi@inria.fr> | 2014-07-10 15:22:58 +0200 |
commit | 19d2075236c4c3fd932f7cf003b9f7283dafaeca (patch) | |
tree | 2a0d7c5a12ddbb88084fbb896ed221bd0aba2e33 /stm/tQueue.ml | |
parent | edee36d00147dfaa99acf52a7b4d7ebf329b013f (diff) |
more APIs in TQueue and CThread
These are now sufficient to implement PIDE
Diffstat (limited to 'stm/tQueue.ml')
-rw-r--r-- | stm/tQueue.ml | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/stm/tQueue.ml b/stm/tQueue.ml index 783c545fd..bf55eaf77 100644 --- a/stm/tQueue.ml +++ b/stm/tQueue.ml @@ -42,6 +42,13 @@ let push { queue = q; lock = m; cond = c } x = Condition.signal c; Mutex.unlock m +let clear { queue = q; lock = m; cond = c } = + Mutex.lock m; + Queue.clear q; + Mutex.unlock m + +let is_empty { queue = q } = Queue.is_empty q + let wait_until_n_are_waiting_and_queue_empty j tq = Mutex.lock tq.lock; while not (Queue.is_empty tq.queue) || tq.nwaiting < j do |