simon/ocaml-containers
1
0
Fork 0
mirror of https://github.com/c-cube/ocaml-containers.git synced 2025-12-06 11:15:31 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

add CCFormat.flush

Browse source
This commit is contained in:
Simon Cruanes 2017-03-07 09:24:03 +01:00
parent d45b341232
commit 719d048f57
2 changed files with 5 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
src/core/CCFormat.ml
View file

@ -37,6 +37,7 @@ let int32 fmt n = Format.fprintf fmt "%ld" n
let int64 fmt n = Format.fprintf fmt "%Ld" n let int64 fmt n = Format.fprintf fmt "%Ld" n
let nativeint fmt n = Format.fprintf fmt "%nd" n let nativeint fmt n = Format.fprintf fmt "%nd" n
let string_quoted fmt s = Format.fprintf fmt "\"%s\"" s let string_quoted fmt s = Format.fprintf fmt "\"%s\"" s
let flush = Format.pp_print_flush
let list ?(sep=return ",@ ") pp fmt l = let list ?(sep=return ",@ ") pp fmt l =
let rec pp_list l = match l with let rec pp_list l = match l with

4
src/core/CCFormat.mli
View file

@ -28,6 +28,10 @@ val int32 : int32 printer (** @since 0.14 *)
val int64 : int64 printer (** @since 0.14 *) val int64 : int64 printer (** @since 0.14 *)
val nativeint : nativeint printer (** @since 0.14 *) val nativeint : nativeint printer (** @since 0.14 *)
val flush : unit printer
(** Alias to {!Format.pp_print_flush}.
@since NEXT_RELEASE *)
val string_quoted : string printer val string_quoted : string printer
(** Similar to {!CCString.print}. (** Similar to {!CCString.print}.
@since 0.14 *) @since 0.14 *)