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 open_bin : string -> tval open_text : string -> tval open_gen : open_flag list -> int -> string -> tval with_open_bin : string -> (t -> 'a) -> 'aval with_open_text : string -> (t -> 'a) -> 'aval with_open_gen : open_flag list -> int -> string -> (t -> 'a) -> 'aval seek : t -> int64 -> unitval close_noerr : t -> unitval set_binary_mode : t -> bool -> unit