This file is indexed.

/usr/lib/ocaml/lwt/lwt_condition.mli is in liblwt-ocaml-dev 2.7.1-4build1.

This file is owned by root:root, with mode 0o644.

The actual contents of the file can be viewed below.

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
(******************************************************************************)
(* Lightweight thread library for OCaml
 * http://www.ocsigen.org/lwt
 * Interface Lwt_condition
 ******************************************************************************
 * Copyright (c) 2009, Metaweb Technologies, Inc.
 * All rights reserved.
 *
 * Redistribution and use in source and binary forms, with or without
 * modification, are permitted provided that the following conditions
 * are met:
 * * Redistributions of source code must retain the above copyright
 * notice, this list of conditions and the following disclaimer.
 * * Redistributions in binary form must reproduce the above
 * copyright notice, this list of conditions and the following
 * disclaimer in the documentation and/or other materials provided
 * with the distribution.
 *
 * THIS SOFTWARE IS PROVIDED BY METAWEB TECHNOLOGIES ``AS IS'' AND ANY
 * EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
 * PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL METAWEB TECHNOLOGIES BE
 * LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
 * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
 * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR
 * BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY,
 * WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE
 * OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN
 * IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
 ******************************************************************************)

(** Conditions *)

(** Condition variables to synchronize between threads. *)

type 'a t
    (** Condition variable type. The type parameter denotes the type of
        value propagated from notifier to waiter. *)

val create : unit -> 'a t
    (** [create ()] creates a new condition variable. *)

val wait : ?mutex:Lwt_mutex.t -> 'a t -> 'a Lwt.t
    (** [wait mutex condvar] will cause the current thread to block,
        awaiting notification for a condition variable, [condvar]. If
        provided, the [mutex] must have been previously locked (within
        the scope of [Lwt_mutex.with_lock], for example) and is
        temporarily unlocked until the condition is notified. Upon
        notification, [mutex] is re-locked before [wait] returns and
        the thread's activity is resumed. When the awaited condition
        is notified, the value parameter passed to [notify] is
        returned. *)

val signal : 'a t -> 'a -> unit
    (** [signal condvar value] notifies that a condition is ready. A
        single waiting thread will be awoken and will receive the
        notification value which will be returned from [wait]. Note
        that condition notification is not "sticky", i.e. if there is
        no waiter when [notify] is called, the notification will be
        missed and the value discarded. *)

val broadcast : 'a t -> 'a -> unit
    (** [broadcast condvar value] notifies all waiting threads. Each
        will be awoken in turn and will receive the same notification
        value. *)

val broadcast_exn : 'a t -> exn -> unit
    (** [broadcast_exn condvar exn] fails all waiting threads with exception
        [exn].

        @since 2.6.0 *)