X-Git-Url: http://git.nguyen.vg/gitweb/?p=tatoo.git;a=blobdiff_plain;f=src%2Fpretty.ml;h=192721661a2093b60513aa5c7030867d99bbf89e;hp=02c413f6950349bccb25cf79e86b29ec3b2e385e;hb=974dacbf4f625bfd8ea83db69d6b346050141fea;hpb=cba2938d929fd5119b1491686ddc224d5af618c6

diff --git a/src/pretty.ml b/src/pretty.ml
index 02c413f..1927216 100644
--- a/src/pretty.ml
+++ b/src/pretty.ml
@@ -13,6 +13,10 @@
 (*                                                                     *)
 (***********************************************************************)
 
+(*
+  Time-stamp: <Last modified on 2013-03-09 10:41:21 CET by Kim Nguyen>
+*)
+
 open Format
 
 exception InvalidUtf8Codepoint of int
@@ -86,6 +90,7 @@ let up_arrow = "↑"
 let right_arrow = "→"
 let left_arrow =  "←"
 let epsilon = "ϵ"
+let big_sigma = "∑"
 let cap = "∩"
 let cup = "∪"
 let lnot = "¬"
@@ -94,6 +99,7 @@ let vee = "∨"
 let top = "⊤"
 let bottom = "⊥"
 let dummy = "☠"
+let inverse = "⁻¹"
 let double_right_arrow = "⇒"
 let combining_overbar = "\204\133"
 let combining_underbar = "\204\178"
@@ -105,14 +111,8 @@ let overline s = combine_all combining_overbar s
 let underline s = combine_all combining_underbar s
 let strike s = combine_all combining_stroke s
 
-let mk_repeater c =
-  let mk_str i = String.make i c in
-  let _table = Array.init 16 mk_str in
-     fun i -> try
-      if i < 16 then _table.(i) else mk_str i
-    with e -> print_int i; print_newline(); raise e
-let padding = mk_repeater ' '
-let line = mk_repeater '_'
+let padding i = String.make i ' '
+let line i = String.make i '_'
 
 
 
@@ -125,7 +125,7 @@ let pp_underline = ppf underline
 let pp_strike = ppf strike
 let pp_subscript = ppf subscript
 let pp_superscript = ppf superscript
-let dummy_printer fmt () = ()
+let dummy_printer _ () = ()
 
 let pp_print_list ?(sep=dummy_printer) printer fmt l =
   match l with