* 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
*)
-type ('a, 'b) choice = Either of 'a | Or of 'b
+open Printf
-let verbose = ref true (* XXX settable *)
+let (+^) = Int64.add
+let (-^) = Int64.sub
+let ( *^ ) = Int64.mul
+let (/^) = Int64.div
+
+type ('a, 'b) either = Left of 'a | Right of 'b
+
+let verbose = ref false
+let set_verbose_flag () = verbose := true
+let verbose () = !verbose
+
+let write_flag = ref false
+let set_write_flag () = write_flag := true
+let write_flag () = !write_flag
let debug fs =
- let f str = if !verbose then (prerr_string str; prerr_newline ()) in
+ let f str =
+ if verbose () then (
+ prerr_string Config.package;
+ prerr_string ": ";
+ prerr_string str;
+ prerr_newline ()
+ )
+ in
ksprintf f fs
let failwith fs =
let f str =
- if !verbose then (prerr_string str; prerr_newline ());
+ if verbose () then (prerr_string str; prerr_newline ());
raise (Failure str)
in
ksprintf f fs
+
+let utf8_rarrow = "\xe2\x86\x92"
+
+let human_size_1k i =
+ if i < 1024L then
+ sprintf "%LdK" i
+ else if i < 1024L *^ 1024L then
+ sprintf "%.1fM" (Int64.to_float i /. 1024.)
+ else
+ sprintf "%.1fG" (Int64.to_float i /. 1024. /. 1024.)