21 lines | 1308 chars
| 1 | (**************************************************************************) |
| 2 | (* *) |
| 3 | (* OCaml *) |
| 4 | (* *) |
| 5 | (* Xavier Leroy and Pascal Cuoq, projet Cristal, INRIA Rocquencourt *) |
| 6 | (* *) |
| 7 | (* Copyright 1995 Institut National de Recherche en Informatique et *) |
| 8 | (* en Automatique. *) |
| 9 | (* *) |
| 10 | (* All rights reserved. This file is distributed under the terms of *) |
| 11 | (* the GNU Lesser General Public License version 2.1, with the *) |
| 12 | (* special exception on linking described in the file LICENSE. *) |
| 13 | (* *) |
| 14 | (**************************************************************************) |
| 15 | |
| 16 | type t |
| 17 | external create: unit -> t = "caml_condition_new" |
| 18 | external wait: t -> Mutex.t -> unit = "caml_condition_wait" |
| 19 | external signal: t -> unit = "caml_condition_signal" |
| 20 | external broadcast: t -> unit = "caml_condition_broadcast" |
| 21 |