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 Pp.debug

Browse source
This commit is contained in:
Simon Cruanes 2023-03-31 23:20:46 -04:00
parent 679534597d
commit 9d35f96033
No known key found for this signature in database
GPG key ID: EBFFF6F283F3A2B4
2 changed files with 19 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

17
src/pp/containers_pp.ml
View file

@ -45,6 +45,21 @@ and view =
| Fill of { sep: t; l: t list }
| Wrap : 'a Ext.t * 'a * t -> view
(* debug printer *)
let rec debug out (self : t) : unit =
match self.view with
| Nil -> Format.fprintf out "nil"
| Newline -> Format.fprintf out "nl"
| Nest (i, x) -> Format.fprintf out "(@[nest %d@ %a@])" i debug x
| Append (a, b) -> Format.fprintf out "@[%a ^@ %a@]" debug a debug b
| Char c -> Format.fprintf out "%C" c
| Text s -> Format.fprintf out "%S" s
| Text_sub (s, i, len) -> Format.fprintf out "%S" (String.sub s i len)
| Group d -> Format.fprintf out "(@[group@ %a@])" debug d
| Fill { sep = _; l } ->
Format.fprintf out "(@[fill@ %a@])" (Format.pp_print_list debug) l
| Wrap (_, _, d) -> Format.fprintf out "(@[ext@ %a@])" debug d
let nil : t = { view = Nil; wfl = 0 }
let newline : t = { view = Newline; wfl = 1 }
let nl = newline
@ -343,8 +358,6 @@ let fill sep = function
in
{ view = Fill { sep; l }; wfl }
let fill_map sep f l = fill sep (List.map f l)
let of_list ?(sep = nil) f l =
let rec loop = function
| [] -> nil

4
src/pp/containers_pp.mli
View file

@ -135,6 +135,10 @@ end
val pp : Format.formatter -> t -> unit
(** Pretty-print, using {!Pretty} and an unspecified margin. *)
val debug : Format.formatter -> t -> unit
(** Debug printer. This prints the structure of the document,
it does {b not} pretty-print it. See {!pp} or {!Pretty}. *)
(** {2 Convenience functions} *)
module Infix : sig