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

add Format printers to CCString

Browse source
This commit is contained in:
Simon Cruanes 2014-10-20 23:29:17 +02:00
parent 1374a2741c
commit ad705fd758
2 changed files with 8 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
core/CCString.ml
View file

@ -46,6 +46,7 @@ module type S = sig
val to_list : t -> char list val to_list : t -> char list
val pp : Buffer.t -> t -> unit val pp : Buffer.t -> t -> unit
val print : Format.formatter -> t -> unit
end end
let equal (a:string) b = a=b let equal (a:string) b = a=b
@ -251,6 +252,9 @@ let pp buf s =
Buffer.add_string buf s; Buffer.add_string buf s;
Buffer.add_char buf '"' Buffer.add_char buf '"'
let print fmt s =
Format.fprintf fmt "\"%s\"" s
module Sub = struct module Sub = struct
type t = string * int * int type t = string * int * int
@ -284,4 +288,7 @@ module Sub = struct
Buffer.add_char buf '"'; Buffer.add_char buf '"';
Buffer.add_substring buf s i len; Buffer.add_substring buf s i len;
Buffer.add_char buf '"' Buffer.add_char buf '"'
let print fmt s =
Format.fprintf fmt "\"%s\"" (copy s)
end end

1
core/CCString.mli
View file

@ -50,6 +50,7 @@ module type S = sig
val to_list : t -> char list val to_list : t -> char list
val pp : Buffer.t -> t -> unit val pp : Buffer.t -> t -> unit
val print : Format.formatter -> t -> unit
end end
(** {2 Strings} *) (** {2 Strings} *)