Up

module Util

: sig
#
module IntSet : Set.S with type elt = int
#
module IntMap : Map.S with type key = int
#
module StringSet : Set.S with type elt = string
#
module StringMap : Map.S with type key = string
#
val opt_filter : ('a -> bool) -> 'a option -> 'a option
#
val opt_map : ('a -> 'b) -> 'a option -> 'b option
#
val opt_iter : ('a -> unit) -> 'a option -> unit
#
val filter_map : ('a -> 'b option) -> 'a list -> 'b list
#
val array_fold_right_i : (int -> 'a -> 'b -> 'b) -> 'a array -> 'b -> 'b
#
val path_require_findlib : string -> string option
#
val find_pkg_dir : string -> string
#
val find_in_paths : ?pkg:string -> string list -> string -> string
#
val read_file : string -> string
#
val take : int -> 'a list -> 'a list * 'a list
#
val is_ascii : string -> bool
#
val has_backslash : string -> bool
#
module Timer : sig
#
type t
#
val init : (unit -> float) -> unit
#
val make : unit -> t
#
val get : t -> float
#
val print : Format.formatter -> t -> unit
end
#
val fail : bool Pervasives.ref
#
val failwith_ : ('a, unit, string, unit) Pervasives.format4 -> 'a
#
val raise_ : exn -> unit
#
val split_char : char -> string -> string list
#
val split : string -> string -> string list
#
val find : string -> Bytes.t -> int
#
val normalize_argv : ?warn:bool -> string array -> string array
#
module Version : sig
#
type t = int list
#
val current : t
#
val compare : t -> t -> int
#
val split : string -> t
#
val v : [
| `V3
| `V4_02
]
end
#
module MagicNumber : sig
#
type t = private string * int
#
exception Bad_magic_number of string
#
exception Bad_magic_version of t
#
val size : int
#
val compare : t -> t -> int
#
val of_string : string -> t
#
val to_string : t -> string
#
val current : t
#
val assert_current : string -> unit
end
end