Misc

#

val fatal_error : string -> 'a

#

exception Fatal_error

#

val try_finally : (unit -> 'a) -> (unit -> unit) -> 'a

#

val map_end : ('a -> 'b) -> 'a list -> 'b list -> 'b list

#

val map_left_right : ('a -> 'b) -> 'a list -> 'b list

#

val for_all2 : ('a -> 'b -> bool) -> 'a list -> 'b list -> bool

#

val replicate_list : 'a -> int -> 'a list

#

val list_remove : 'a -> 'a list -> 'a list

#

val split_last : 'a list -> 'a list * 'a

#

val samelist : ('a -> 'a -> bool) -> 'a list -> 'a list -> bool

#

val may : ('a -> unit) -> 'a option -> unit

#

val may_map : ('a -> 'b) -> 'a option -> 'b option

#

module Path_list : sig

#

type t

#

val of_list : t list -> t

#

val of_string_list_ref : string list Pervasives.ref -> t

#

val to_list : t -> string Std.List.Lazy.t

#

val to_strict_list : t -> string list

end

#

val find_in_path : Path_list.t -> string -> string

#

val find_in_path_uncap : ?fallback:string -> Path_list.t -> string -> string

#

val canonicalize_filename : ?cwd:string -> string -> string

#

val expand_glob : ?filter:(string -> bool) -> string -> string list -> string list

#

val split_path : string -> string list -> string list

#

val remove_file : string -> unit

#

val expand_directory : string -> string -> string

#

val create_hashtable : int -> ('a * 'b) list -> ('a, 'b) Std.Hashtbl.t

#

val copy_file : Pervasives.in_channel -> Pervasives.out_channel -> unit

#

val copy_file_chunk : Pervasives.in_channel -> Pervasives.out_channel -> int -> unit

#

val string_of_file : Pervasives.in_channel -> string

#

val input_bytes : Pervasives.in_channel -> int -> string

#

val log2 : int -> int

#

val align : int -> int -> int

#

val no_overflow_add : int -> int -> bool

#

val no_overflow_sub : int -> int -> bool

#

val no_overflow_lsl : int -> bool

#

val chop_extension_if_any : string -> string

#

val chop_extensions : string -> string

#

val search_substring : string -> string -> int -> int

#

val rev_split_words : string -> string list

#

val rev_string_split : on:char -> string -> string list

#

val get_ref : 'a list Pervasives.ref -> 'a list

#

val fst3 : 'a * 'b * 'c -> 'a

#

val snd3 : 'a * 'b * 'c -> 'b

#

val thd3 : 'a * 'b * 'c -> 'c

#

val fst4 : 'a * 'b * 'c * 'd -> 'a

#

val snd4 : 'a * 'b * 'c * 'd -> 'b

#

val thd4 : 'a * 'b * 'c * 'd -> 'c

#

val fth4 : 'a * 'b * 'c * 'd -> 'd

#

val modules_in_path : ext:string -> string list -> string list

#

val (~:) : 'a -> 'a Lazy.t

#

val file_mtime : string -> float

#

val file_contents : string -> string

module Misc