Module Rformat

module Rformat: sig .. end
get_time T t returns k such that T[k-1] <= t <= T[k], T is extended with T[-1]=0 and T[N]=+oo.

val epsilon : float
val get_time : 'a array -> 'a -> int
get_time T t returns k such that T[k-1] <= t <= T[k], T is extended with T[-1]=0 and T[N]=+oo.
val rdiv : float -> float -> float * float
val pp_time : Format.formatter -> float -> unit
Pretty print time in hour, minutes, seconds, or milliseconds, as appropriate
val pp_time_range : float array -> Format.formatter -> float -> unit
type command = 
| CMD of string
| ARG of string * string
| TEXT
type console = {
   env : Format.formatter -> string -> string -> unit;
   line : Buffer.t;
   mutable spaces : int;
   fline : Format.formatter;
   foutput : Format.formatter;
}
val spaces : console -> unit
val add_spaces : Buffer.t -> int -> unit
val spaces : console -> unit
val flush : console -> unit
val write : console -> string -> unit
val env : console -> string -> string -> unit
val __ocaml_lex_tables : Lexing.lex_tables
val word : console -> Lexing.lexbuf -> unit
val __ocaml_lex_word_rec : console -> Lexing.lexbuf -> int -> unit
val command : string -> command
val __ocaml_lex_command_rec : Lexing.lexbuf -> int -> command
val pretty : (Format.formatter -> string -> string -> unit) ->
Format.formatter -> string -> unit
val command : string -> command