Module Sys_open_patch

module Sys_open_patch: sig .. end
This module is here to avoid holding the runtime lock when doing an open_in_gen lock. This has been upstreamed as a patch in 3.12.1.


This module exists only to workaround some undesirable behavior in the function caml_sys_open in the ocaml runtime. Delete this module in favor of the same functions in Pervasives once the runtime is patched to our satisfaction
val open_in_gen : Pervasives.open_flag list -> int -> string -> Pervasives.in_channel
Reimplementation of Pervasives.open_in_gen
val open_out_gen : Pervasives.open_flag list -> int -> string -> Pervasives.out_channel
Reimplementation of Pervasives.open_out_gen