Commit 4fa83226 authored by François Bobot's avatar François Bobot

pp : add one ansi-code function

parent 87db1335
...@@ -377,7 +377,8 @@ let () = ...@@ -377,7 +377,8 @@ let () =
| Call_provers.Valid -> incr nb_valid | Call_provers.Valid -> incr nb_valid
| _ -> () end | _ -> () end
| _ -> (); | _ -> ();
Format.printf "\027[0G(%i/%i) valid : %i%!" Format.printf "%a(%i/%i) valid : %i%!"
Pp.Ansi.set_column 0
!nb_done !nb_scheduled !nb_valid !nb_done !nb_scheduled !nb_valid
end; end;
Debug.dprintf Scheduler.debug "%s.%s %a %i with %s : %a@." Debug.dprintf Scheduler.debug "%s.%s %a %i with %s : %a@."
......
...@@ -167,3 +167,9 @@ let string_of_wnl p x = ...@@ -167,3 +167,9 @@ let string_of_wnl p x =
wnl fmt; wnl fmt;
fprintf fmt "%a@?" p x; fprintf fmt "%a@?" p x;
Buffer.contents b Buffer.contents b
module Ansi =
struct
let set_column fmt n = fprintf fmt "\027[%iG" n
end
...@@ -124,3 +124,8 @@ val string_of_wnl : (Format.formatter -> 'a -> unit) -> 'a -> string ...@@ -124,3 +124,8 @@ val string_of_wnl : (Format.formatter -> 'a -> unit) -> 'a -> string
(** same as {!string_of} but without newline *) (** same as {!string_of} but without newline *)
val wnl : Format.formatter -> unit val wnl : Format.formatter -> unit
module Ansi :
sig
val set_column : Format.formatter -> int -> unit
end
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment