jyapayne/flitter
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Add poc files

Browse source
This commit is contained in:
Joey Yakimowich-Payne 2018-05-26 10:55:38 +09:00
commit fa600b98f7
220 changed files with 45679 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

14
commons_core/console.mli Normal file
View file

@ -0,0 +1,14 @@
(* to be used as in
* xs +> Common_extra.progress (fun k -> List.iter (fun x -> k(); ...))
*)
val progress:
?show:bool -> ((unit -> unit) -> 'a list -> 'b) -> 'a list -> 'b
val execute_and_show_progress:
show:bool -> int -> ((unit -> unit) -> 'a) -> unit
val execute_and_show_progress2:
?show:bool -> int -> ((unit -> unit) -> 'a) -> 'a
val with_progress_list_metter:
?show:bool -> ((unit -> unit) -> 'a list -> 'b) -> 'a list -> 'b