ocaml-webworker 0.0.1 · OCaml Package

exception Fatal_error of string * Printexc.raw_backtrace

val fatal_error : string -> 'a

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

type ref_and_value =

| R : 'a Pervasives.ref * 'a -> ref_and_value

val protect_refs : ref_and_value list -> (unit -> 'a) -> '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 -> 'b -> bool) -> 'a list -> 'b list -> bool

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

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

val remove_file : string -> unit

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

val fs_exact_case : 'a -> 'a

module File_exists : sig ... end

val exact_file_exists : string -> bool

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

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

val find_in_path : string list -> string -> string

val find_in_path_rel : string list -> string -> string

val find_in_path_uncap : ?fallback:string -> string list -> string -> string

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 -> bytes

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_mul : int -> int -> bool

val no_overflow_lsl : int -> int -> bool

module Int_literal_converter : sig ... end

val chop_extension_if_any : string -> string

val chop_extensions : string -> string

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

val replace_substring : before:string -> after:string -> string -> string

val rev_split_string : (char -> bool) -> string -> string list

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

module LongString : sig ... end

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

val file_contents : string -> string

val edit_distance : string -> string -> int -> int option

val spellcheck : string list -> string -> string list

val did_you_mean : Std.Format.formatter -> (unit -> string list) -> unit

val split : string -> char -> string list

val cut_at : string -> char -> string * string

val time_spent : unit -> float

module StringSet : sig ... end

module StringMap : sig ... end

val normalise_eol : string -> string

val unitname : string -> string

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

type hook_info = {

sourcefile : string;

}

type hook_exn_wrapper = {

error : exn;
hook_name : string;
hook_info : hook_info;

}

exception HookExnWrapper of hook_exn_wrapper

exception HookExn of exn

val raise_direct_hook_exn : exn -> 'a

val fold_hooks : 
  (string * (hook_info -> 'a -> 'a)) list ->
  hook_info ->
  'a ->
  'a

module type HookSig = sig ... end

module MakeHooks (M : sig ... end) : HookSig with type t = M.t

package ocaml-webworker