simon/ocaml-containers
1
0
Fork 0
mirror of https://github.com/c-cube/ocaml-containers.git synced 2026-01-28 11:54:51 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

rename CCChar.{print,pp} and CCHeap.print (closes #181)

Browse source
This commit is contained in:
Simon Cruanes 2018-01-29 21:15:24 -06:00
parent 3b8f7099cb
commit 2939dcbf1d
4 changed files with 14 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
src/core/CCChar.ml
View file

@ -8,8 +8,8 @@ include Char
let equal (a:char) b = Pervasives.(=) a b let equal (a:char) b = Pervasives.(=) a b
let pp = Buffer.add_char let pp_buf = Buffer.add_char
let print = Format.pp_print_char let pp = Format.pp_print_char
let of_int_exn = Char.chr let of_int_exn = Char.chr
let of_int c = try Some (of_int_exn c) with _ -> None let of_int c = try Some (of_int_exn c) with _ -> None

7
src/core/CCChar.mli
View file

@ -40,5 +40,8 @@ val to_int : t -> int
Return the ASCII code of the argument. Return the ASCII code of the argument.
@since 1.0 *) @since 1.0 *)
val pp : Buffer.t -> t -> unit val pp_buf : Buffer.t -> t -> unit
val print : Format.formatter -> t -> unit (** Used to be {!pp}, changed name @since NEXT_RELEASE *)
val pp : Format.formatter -> t -> unit
(** Used to be {!print}, changed name @since NEXT_RELEASE *)

7
src/core/CCHeap.ml
View file

@ -186,8 +186,9 @@ module type S = sig
val to_tree : t -> elt ktree val to_tree : t -> elt ktree
val print : ?sep:string -> elt printer -> t printer val pp : ?sep:string -> elt printer -> t printer
(** @since 0.16 *) (** @since 0.16
Renamed from {!print} @since NEXT_RELEASE *)
end end
module Make(E : PARTIAL_ORD) : S with type elt = E.t = struct module Make(E : PARTIAL_ORD) : S with type elt = E.t = struct
@ -387,7 +388,7 @@ module Make(E : PARTIAL_ORD) : S with type elt = E.t = struct
| E -> `Nil | E -> `Nil
| N (_, x, l, r) -> `Node(x, [to_tree l; to_tree r]) | N (_, x, l, r) -> `Node(x, [to_tree l; to_tree r])
let print ?(sep=",") pp_elt out h = let pp ?(sep=",") pp_elt out h =
let first=ref true in let first=ref true in
iter iter
(fun x -> (fun x ->

5
src/core/CCHeap.mli
View file

@ -124,8 +124,9 @@ module type S = sig
val to_tree : t -> elt ktree val to_tree : t -> elt ktree
val print : ?sep:string -> elt printer -> t printer val pp : ?sep:string -> elt printer -> t printer
(** @since 0.16 *) (** @since 0.16
Renamed from {!print} @since NEXT_RELEASE *)
end end
module Make(E : PARTIAL_ORD) : S with type elt = E.t module Make(E : PARTIAL_ORD) : S with type elt = E.t