exception Quitmodule E : sig val s : string val b : bytes val a : 'a array val j : int * float * float endval tempfailureretry : ('a -> 'b) -> 'a -> 'bexternal spawn : string -> (Unix.file_descr * int) list -> int = "ml_spawn"external hasdata : Unix.file_descr -> bool = "ml_hasdata"val now : unit -> floatval dologf : (string -> unit) refval dolog : ('a, unit, string, unit) format4 -> 'aval exntos : exn -> stringval onoffs : bool -> stringval error : ('a, unit, string, 'b) format4 -> 'amodule IntSet : Set.S with type elt = intval emptystr : string -> boolval nonemptystr : string -> boolval bound : 'a -> 'a -> 'a -> 'amodule Opaque : sig type t = private string val of_string : string -> t val to_string : t -> string endval int_of_string_with_suffix : string -> intval string_with_suffix_of_int : int -> stringval color_of_string : string -> float * float * floatval rgba_of_string : string -> float * float * float * floatval color_to_string : float * float * float -> stringval rgba_to_string : float * float * float * float -> stringval abspath : string -> stringmodule Ne : sig val index : string -> char -> int val clo : Unix.file_descr -> (string -> unit) -> unit endval getenvdef : string -> string -> stringmodule Re : sig val crlf : Str.regexp val percents : Str.regexp val percentp : Str.regexp val whitespace : Str.regexp endval addchar : string -> char -> stringval btod : bool -> intval splitatchar : string -> char -> string * stringval boundastep : int -> int -> intval withoutlastutf8 : string -> stringval fdcontents : Unix.file_descr -> stringval filecontents : string -> stringval getcmdoutput : (string -> unit) -> string -> stringval geturl : string -> stringval substratis : string -> int -> string -> boolval w8 : bytes -> int -> int -> unitval r8 : bytes -> int -> intval w16 : bytes -> int -> int -> unitval r16 : bytes -> int -> intval r16s : bytes -> int -> intval w32 : bytes -> int -> int -> unitval r32 : bytes -> int -> intval r32s : bytes -> int -> intval vlogf : (string -> unit) refval vlog : ('a, unit, string, unit) format4 -> 'aval pipef : ?closew:bool -> string -> (Unix.file_descr -> unit) -> string -> unitval selstring : string -> string -> unit
exception Quit
module E :
sig
val s : string
val b : bytes
val a : 'a array
val j : int * float * float
end
val tempfailureretry : ('a -> 'b) -> 'a -> 'b
external spawn : string -> (Unix.file_descr * int) list -> int = "ml_spawn"
external hasdata : Unix.file_descr -> bool = "ml_hasdata"
val now : unit -> float
val dologf : (string -> unit) ref
val dolog : ('a, unit, string, unit) format4 -> 'a
val exntos : exn -> string
val onoffs : bool -> string
val error : ('a, unit, string, 'b) format4 -> 'a
module IntSet : Set.S with type elt = int
val emptystr : string -> bool
val nonemptystr : string -> bool
val bound : 'a -> 'a -> 'a -> 'a
module Opaque :
sig
type t = private string
val of_string : string -> t
val to_string : t -> string
end
val int_of_string_with_suffix : string -> int
val string_with_suffix_of_int : int -> string
val color_of_string : string -> float * float * float
val rgba_of_string : string -> float * float * float * float
val color_to_string : float * float * float -> string
val rgba_to_string : float * float * float * float -> string
val abspath : string -> string
module Ne :
sig
val index : string -> char -> int
val clo : Unix.file_descr -> (string -> unit) -> unit
end
val getenvdef : string -> string -> string
module Re :
sig
val crlf : Str.regexp
val percents : Str.regexp
val percentp : Str.regexp
val whitespace : Str.regexp
end
val addchar : string -> char -> string
val btod : bool -> int
val splitatchar : string -> char -> string * string
val boundastep : int -> int -> int
val withoutlastutf8 : string -> string
val fdcontents : Unix.file_descr -> string
val filecontents : string -> string
val getcmdoutput : (string -> unit) -> string -> string
val geturl : string -> string
val substratis : string -> int -> string -> bool
val w8 : bytes -> int -> int -> unit
val r8 : bytes -> int -> int
val w16 : bytes -> int -> int -> unit
val r16 : bytes -> int -> int
val r16s : bytes -> int -> int
val w32 : bytes -> int -> int -> unit
val r32 : bytes -> int -> int
val r32s : bytes -> int -> int
val vlogf : (string -> unit) ref
val vlog : ('a, unit, string, unit) format4 -> 'a
val pipef :
?closew:bool -> string -> (Unix.file_descr -> unit) -> string -> unit
val selstring : string -> string -> unit