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

Merge pull request #50 from Gbury/print_char

Browse source 
add `CCPrint.char`
This commit is contained in:
Simon Cruanes 2015-10-13 15:19:35 +02:00
commit 7808ecb602
2 changed files with 3 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
src/core/CCPrint.ml
View file

@ -46,6 +46,7 @@ let string buf s = Buffer.add_string buf s
let bool buf b = Printf.bprintf buf "%B" b
let float3 buf f = Printf.bprintf buf "%.3f" f
let float buf f = Buffer.add_string buf (string_of_float f)
let char buf c = Buffer.add_char buf c
let list ?(start="[") ?(stop="]") ?(sep=", ") pp buf l =
let rec pp_list l = match l with

2
src/core/CCPrint.mli
View file

@ -69,6 +69,8 @@ val string : string t
val bool : bool t
val float3 : float t (* 3 digits after . *)
val float : float t
val char : char t
(** @since NEXT_RELEASE *)
val list : ?start:string -> ?stop:string -> ?sep:string -> 'a t -> 'a list t
val array : ?start:string -> ?stop:string -> ?sep:string -> 'a t -> 'a array t