blob: ada492dd407f6eb17ef8fd92bd88761bc4d569cb (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
|
(************************************************************************)
(* v * The Coq Proof Assistant / The Coq Development Team *)
(* <O___,, * INRIA - CNRS - LIX - LRI - PPS - Copyright 1999-2012 *)
(* \VV/ **************************************************************)
(* // * This file is distributed under the terms of the *)
(* * GNU Lesser General Public License Version 2.1 *)
(************************************************************************)
(* As of OCaml 4.01.0 input_value and input do not quite work well
* with threads. The symptom is the following. Two threads, each
* of them blocked on a read (on different channels). One is not
* woken up even if data is available. When the other one gets data
* then the stuck one is eventually unblocked too. Unix.select with
* an unbounded wait has the same problem. *)
(* Use only the following functions on the channel *)
val prepare_in_channel_for_thread_friendly_io : in_channel -> unit
val thread_friendly_input_value : in_channel -> 'a
val thread_friendly_read :
in_channel -> string -> off:int -> len:int -> int
val thread_friendly_really_read :
in_channel -> string -> off:int -> len:int -> unit
val thread_friendly_really_read_line : in_channel -> string
|
