- let print_string s = print_string (String.make !indent ' ' ^ s) in
- fun enter s ->
- if enter then (print_string s; incr indent) else (decr indent; print_string s)
+ let print_string ~right_justify s =
+ let ss =
+ match right_justify with
+ None -> ""
+ | Some (ss,len_ss) ->
+ String.make (80 - !indent - len_ss - String.length s) ' ' ^ ss
+ in
+ print_string (String.make !indent ' ' ^ s ^ ss) in
+ fun enter ?right_justify s ->
+ if enter then (print_string ~right_justify s; incr indent) else (decr indent; print_string ~right_justify s)