Commits

Paweł Wieczorek committed c92da2e

added output functions for list of painters

  • Participants
  • Parent commits e489616

Comments (0)

Files changed (2)

src/Prioritized.ml

 let print_painter psp = Basic.print_painter (get_painter psp)
 let render_painter psp = Basic.render_painter (get_painter psp)
 
+let print_painters_nl psps = print_painter_nl (psp_nested 0 psps)
+let print_painters psps    = print_painter (psp_nested 0 psps)
+let render_painters psps   = render_painter (psp_nested 0 psps)
 
+

src/Prioritized.mli

  *)
 val render_painter    : painter -> string
 
+(**
+   Prints on standard output with newline.
+ *)
+val print_painters_nl  : painter list -> unit
+
+(**
+   Prints on standard output..
+ *)
+val print_painters    : painter list -> unit
+
+(**
+    Renders painter into string.
+ *)
+val render_painters   : painter list -> string
+