utils.mli

   1 exception Quit
   2 module E :
   3   sig
   4     val s : string
   5     val b : bytes
   6     val a : 'a array
   7     val j : int * float * float
   8   end
   9 val tempfailureretry : ('a -> 'b) -> 'a -> 'b
  10 external spawn : string -> (Unix.file_descr * int) list -> int = "ml_spawn"
  11 external hasdata : Unix.file_descr -> bool = "ml_hasdata"
  12 val now : unit -> float
  13 val dologf : (string -> unit) ref
  14 val dolog : ('a, unit, string, unit) format4 -> 'a
  15 val exntos : exn -> string
  16 val onoffs : bool -> string
  17 val error : ('a, unit, string, 'b) format4 -> 'a
  18 module IntSet : Set.S with type elt = int
  19 val emptystr : string -> bool
  20 val nonemptystr : string -> bool
  21 val bound : 'a -> 'a -> 'a -> 'a
  22 module Opaque :
  23   sig
  24     type t = private string
  25     val of_string : string -> t
  26     val to_string : t -> string
  27   end
  28 val int_of_string_with_suffix : string -> int
  29 val string_with_suffix_of_int : int -> string
  30 val color_of_string : string -> float * float * float
  31 val rgba_of_string : string -> float * float * float * float
  32 val color_to_string : float * float * float -> string
  33 val rgba_to_string : float * float * float * float -> string
  34 val abspath : string -> string
  35 module Ne :
  36   sig
  37     val index : string -> char -> int
  38     val clo : Unix.file_descr -> (string -> unit) -> unit
  39   end
  40 val getenvdef : string -> string -> string
  41 module Re :
  42   sig
  43     val crlf : Str.regexp
  44     val percents : Str.regexp
  45     val percentp : Str.regexp
  46     val whitespace : Str.regexp
  47   end
  48 val addchar : string -> char -> string
  49 val btod : bool -> int
  50 val splitatchar : string -> char -> string * string
  51 val boundastep : int -> int -> int
  52 val withoutlastutf8 : string -> string
  53 val fdcontents : Unix.file_descr -> string
  54 val filecontents : string -> string
  55 val getcmdoutput : (string -> unit) -> string -> string
  56 val geturl : string -> string
  57 val substratis : string -> int -> string -> bool
  58 val w8 : bytes -> int -> int -> unit
  59 val r8 : bytes -> int -> int
  60 val w16 : bytes -> int -> int -> unit
  61 val r16 : bytes -> int -> int
  62 val r16s : bytes -> int -> int
  63 val w32 : bytes -> int -> int -> unit
  64 val r32 : bytes -> int -> int
  65 val r32s : bytes -> int -> int
  66 val vlogf : (string -> unit) ref
  67 val vlog : ('a, unit, string, unit) format4 -> 'a
  68 val pipef :
  69   ?closew:bool -> string -> (Unix.file_descr -> unit) -> string -> unit
  70 val selstring : string -> string -> unit