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

change boxing in CCFormat.Dump; add example/doc

Browse source
This commit is contained in:
Simon Cruanes 2016-11-03 15:56:02 +01:00
parent 9045fcca0b
commit af4c3fc195
2 changed files with 15 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
src/core/CCFormat.ml
View file

@ -334,8 +334,8 @@ module Dump = struct
let int32 = int32
let int64 = int64
let nativeint = nativeint
let list pp = hovbox (list ~start:"[" ~stop:"]" ~sep:";" pp)
let array pp = hovbox (array ~start:"[|" ~stop:"|]" ~sep:";" pp)
let list pp = within "[" "]" (hovbox (list ~sep:";" pp))
let array pp = within "[|" "|]" (hovbox (array ~sep:";" pp))
let option pp out x = match x with
| None -> Format.pp_print_string out "None"
| Some x -> Format.fprintf out "Some %a" pp x

19
src/core/CCFormat.mli
View file

@ -204,7 +204,15 @@ val to_file : string -> ('a, t, unit, unit) format4 -> 'a
(** {2 Dump}
Print structures as OCaml values, so that they can be parsed back
by OCaml (typically, in the toplevel, for debugging)
by OCaml (typically, in the toplevel, for debugging).
Example:
{[
Format.printf "%a@." CCFormat.Dump.(list int) CCList.(1 -- 200);;
Format.printf "%a@." CCFormat.Dump.(array (list (pair int bool)))
[| [1, true; 2, false]; []; [42, false] |];;
]}
@since NEXT_RELEASE *)
@ -215,11 +223,10 @@ module Dump : sig
val string : string t
val bool : bool t
val float : float t
val char : char t (** @since 0.14 *)
val int32 : int32 t (** @since 0.14 *)
val int64 : int64 t (** @since 0.14 *)
val nativeint : nativeint t (** @since 0.14 *)
val char : char t
val int32 : int32 t
val int64 : int64 t
val nativeint : nativeint t
val list : 'a t -> 'a list t
val array : 'a t -> 'a array t
val option : 'a t -> 'a option t