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

lower level pp function

Browse source
This commit is contained in:
Simon Cruanes 2013-03-21 17:51:44 +01:00
parent 7ed1bced9d
commit 6ba411d7f5
1 changed files with 10 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

15
gen.ml
View file

@ -781,22 +781,27 @@ let int_range i j =
let pp ?(start="") ?(stop="") ?(sep=",") ?(horizontal=false) pp_elem formatter enum =
(if horizontal
then Format.fprintf formatter "@[<h>%s" start
else Format.fprintf formatter "@[%s" start);
then Format.pp_open_hbox formatter ()
else Format.pp_open_hvbox formatter 0);
Format.pp_print_string formatter start;
let gen = enum () in
let rec next is_first =
let continue_ =
try
let x = gen () in
(if not is_first
then Format.fprintf formatter "%s@,%a" sep pp_elem x
else pp_elem formatter x);
then begin
Format.pp_print_string formatter sep;
Format.pp_print_space formatter ();
pp_elem formatter x
end else pp_elem formatter x);
true
with EOG -> false in
if continue_ then next false
in
next true;
Format.fprintf formatter "%s@]" stop
Format.pp_print_string formatter stop;
Format.pp_close_box formatter ()
module Infix = struct
let (@@) = append