module Rformat:sig
..end
val epsilon : float
val get_time : float array -> float -> 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 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 |
| |
ARG of |
| |
TEXT |
val command : string -> command
val pretty : (Format.formatter -> string -> string -> unit) ->
Format.formatter -> string -> unit