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
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
|
module type S = sig
@BEGIN_FROM_4_14_0@
type t = in_channel
@END_FROM_4_14_0@
@BEGIN_BEFORE_4_14_0@
type t = in_channel
@END_BEFORE_4_14_0@
(** @since 4.14.0: type t = in_channel
*)
@BEGIN_FROM_4_14_0@
type open_flag = In_channel.open_flag =
| Open_rdonly
| Open_wronly
| Open_append
| Open_creat
| Open_trunc
| Open_excl
| Open_binary
| Open_text
| Open_nonblock
@END_FROM_4_14_0@
@BEGIN_BEFORE_4_14_0@
type open_flag =
| Open_rdonly
| Open_wronly
| Open_append
| Open_creat
| Open_trunc
| Open_excl
| Open_binary
| Open_text
| Open_nonblock
@END_BEFORE_4_14_0@
(** @since 4.14.0:
type open_flag = In_channel.open_flag =
| Open_rdonly
| Open_wronly
| Open_append
| Open_creat
| Open_trunc
| Open_excl
| Open_binary
| Open_text
| Open_nonblock
*)
val stdin : t
(** @since 4.14.0: val stdin : t *)
val open_bin : string -> t
(** @since 4.14.0: val open_bin : string -> t *)
val open_text : string -> t
(** @since 4.14.0: val open_text : string -> t *)
val open_gen : open_flag list -> int -> string -> t
(** @since 4.14.0: val open_gen : open_flag list -> int -> string -> t *)
val with_open_bin : string -> (t -> 'a) -> 'a
(** @since 4.14.0: val with_open_bin : string -> (t -> 'a) -> 'a *)
val with_open_text : string -> (t -> 'a) -> 'a
(** @since 4.14.0: val with_open_text : string -> (t -> 'a) -> 'a *)
val with_open_gen : open_flag list -> int -> string -> (t -> 'a) -> 'a
(** @since 4.14.0:
val with_open_gen : open_flag list -> int -> string -> (t -> 'a) -> 'a *)
val seek : t -> int64 -> unit
(** @since 4.14.0: val seek : t -> int64 -> unit *)
val pos : t -> int64
(** @since 4.14.0: val pos : t -> int64 *)
val length : t -> int64
(** @since 4.14.0: val length : t -> int64 *)
val close : t -> unit
(** @since 4.14.0: val close : t -> unit *)
val close_noerr : t -> unit
(** @since 4.14.0: val close_noerr : t -> unit *)
val input_char : t -> char option
(** @since 4.14.0: val input_char : t -> char option *)
val input_byte : t -> int option
(** @since 4.14.0: val input_byte : t -> int option *)
val input_line : t -> string option
(** @since 4.14.0: val input_line : t -> string option *)
@BEGIN_FROM_4_14_0@
val input : t -> bytes -> int -> int -> int
@END_FROM_4_14_0@
@BEGIN_BEFORE_4_14_0@
val input : t -> Stdcompat__init.bytes -> int -> int -> int
@END_BEFORE_4_14_0@
(** @since 4.14.0: val input : t -> bytes -> int -> int -> int
*)
@BEGIN_FROM_4_14_0@
val really_input : t -> bytes -> int -> int -> unit option
@END_FROM_4_14_0@
@BEGIN_BEFORE_4_14_0@
val really_input : t -> Stdcompat__init.bytes -> int -> int -> unit option
@END_BEFORE_4_14_0@
(** @since 4.14.0: val really_input : t -> bytes -> int -> int -> unit option
*)
val really_input_string : t -> int -> string option
(** @since 4.14.0: val really_input_string : t -> int -> string option *)
val input_all : t -> string
(** @since 4.14.0: val input_all : t -> string *)
val set_binary_mode : t -> bool -> unit
(** @since 4.14.0: val set_binary_mode : t -> bool -> unit *)
end
|
