sig
class type progress_indicator =
object
method display : ?force:bool -> int * int -> unit
method finish : unit
method set_decimation : int -> unit
method set_label : string -> unit
method start : unit
method warn : string -> unit
end
class indicator :
decimation:int ->
label:string ->
channel:Pervasives.out_channel -> unit -> progress_indicator
class formatter_indicator :
decimation:int ->
label:string -> fmt:Format.formatter -> unit -> progress_indicator
val dummy : Progress.progress_indicator
end