41 lines
1.7 KiB
OCaml
41 lines
1.7 KiB
OCaml
$NetBSD: patch-src_utils_extlib_IO.mli,v 1.1 2018/03/14 14:05:37 dholland Exp $
|
|
|
|
Fix build with ocaml 4.06
|
|
|
|
--- src/utils/extlib/IO.mli~ 2010-11-07 15:01:40.000000000 +0000
|
|
+++ src/utils/extlib/IO.mli
|
|
@@ -59,14 +59,14 @@ val really_nread : input -> int -> strin
|
|
from the input. Raises [No_more_input] if at least [n] characters are
|
|
not available. Raises [Invalid_argument] if [n] < 0. *)
|
|
|
|
-val input : input -> string -> int -> int -> int
|
|
+val input : input -> bytes -> int -> int -> int
|
|
(** [input i s p l] reads up to [l] characters from the given input, storing
|
|
them in string [s], starting at character number [p]. It returns the actual
|
|
number of characters read or raise [No_more_input] if no character can be
|
|
read. It will raise [Invalid_argument] if [p] and [l] do not designate a
|
|
valid substring of [s]. *)
|
|
|
|
-val really_input : input -> string -> int -> int -> int
|
|
+val really_input : input -> bytes -> int -> int -> int
|
|
(** [really_input i s p l] reads exactly [l] characters from the given input,
|
|
storing them in the string [s], starting at position [p]. For consistency with
|
|
{!IO.input} it returns [l]. Raises [No_more_input] if at [l] characters are
|
|
@@ -126,7 +126,7 @@ val output_enum : unit -> char Enum.t ou
|
|
|
|
val create_in :
|
|
read:(unit -> char) ->
|
|
- input:(string -> int -> int -> int) -> close:(unit -> unit) -> input
|
|
+ input:(bytes -> int -> int -> int) -> close:(unit -> unit) -> input
|
|
(** Fully create an input by giving all the needed functions. *)
|
|
|
|
val create_out :
|
|
@@ -293,7 +293,7 @@ val drop_bits : in_bits -> unit
|
|
|
|
class in_channel : input ->
|
|
object
|
|
- method input : string -> int -> int -> int
|
|
+ method input : bytes -> int -> int -> int
|
|
method close_in : unit -> unit
|
|
end
|
|
|