projects
/
tatoo.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Fix the build script.
[tatoo.git]
/
src
/
utils
/
pretty.ml
diff --git
a/src/utils/pretty.ml
b/src/utils/pretty.ml
index
abcb59c
..
1927216
100644
(file)
--- a/
src/utils/pretty.ml
+++ b/
src/utils/pretty.ml
@@
-14,7
+14,7
@@
(***********************************************************************)
(*
(***********************************************************************)
(*
- Time-stamp: <Last modified on 2013-03-0
4 18:46:09
CET by Kim Nguyen>
+ Time-stamp: <Last modified on 2013-03-0
9 10:41:21
CET by Kim Nguyen>
*)
open Format
*)
open Format
@@
-99,6
+99,7
@@
let vee = "∨"
let top = "⊤"
let bottom = "⊥"
let dummy = "☠"
let top = "⊤"
let bottom = "⊥"
let dummy = "☠"
+let inverse = "⁻¹"
let double_right_arrow = "⇒"
let combining_overbar = "\204\133"
let combining_underbar = "\204\178"
let double_right_arrow = "⇒"
let combining_overbar = "\204\133"
let combining_underbar = "\204\178"
@@
-110,12
+111,6
@@
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 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 256 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 i = String.make i ' '
let line i = String.make i '_'
let padding i = String.make i ' '
let line i = String.make i '_'
@@
-130,7
+125,7
@@
let pp_underline = ppf underline
let pp_strike = ppf strike
let pp_subscript = ppf subscript
let pp_superscript = ppf superscript
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
let pp_print_list ?(sep=dummy_printer) printer fmt l =
match l with