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 |