~marionnet-drivers/marionnet/trunk

« back to all changes in this revision

Viewing changes to ocamlbricks/STRUCTURES/forest.ml

  • Committer: Jean-Vincent Loddo
  • Date: 2022-09-13 21:35:39 UTC
  • Revision ID: loddo@lipn.univ-paris13.fr-20220913213539-s4n84461vp2ew2kn
Major change (#1): code restructured in order to compile Marionnet by the Dune build system, with ocaml>=4.13 and lablgtk3. Step #1

Show diffs side-by-side

added added

removed removed

Lines of Context:
282
282
 
283
283
 (* Support for indentation *)
284
284
 let indent = function level ->
285
 
   for i = 1 to level do print_string "  "; done;
 
285
   for _i = 1 to level do print_string "  "; done;
286
286
   if level = 0 then print_string "* " else print_string "`-"
287
287
 in
288
288
 let rec loop ~level = function
301
301
;;
302
302
 
303
303
(** A printer for forests: *)
304
 
let rec print_forest ?level ?string_of_node ~channel forest =
 
304
let print_forest ?level ?string_of_node ~channel forest =
305
305
  let s = printable_string_of_forest ?level ?string_of_node forest in
306
306
  Printf.kfprintf flush channel "%s" s
307
307
;;
450
450
and sort_tree compare (root, subtrees) =
451
451
 let subtrees' = sort compare subtrees in
452
452
 (root, subtrees')
453
 
 
 
 
b'\\ No newline at end of file'
 
453