(* *)
(***********************************************************************)
-(*
- Time-stamp: <Last modified on 2013-03-09 10:41:21 CET by Kim Nguyen>
-*)
-
open Format
exception InvalidUtf8Codepoint of int
let right_arrow = "→"
let left_arrow = "←"
let epsilon = "ϵ"
+let bullet = "•"
let big_sigma = "∑"
let cap = "∩"
let cup = "∪"
match l with
[] -> ()
| [ e ] -> printer fmt e
- | e :: es -> printer fmt e; List.iter
+ | e :: es -> printer fmt e;
+ List.iter
(fun x ->
sep fmt ();
fprintf fmt "%a" printer x) es
+
let pp_print_array ?(sep=dummy_printer) printer fmt a =
pp_print_list ~sep:sep printer fmt (Array.to_list a)
let print_array ?(sep=" ") printer fmt a =
print_list ~sep:sep printer fmt (Array.to_list a)
-
-