3 let b = Bytes.of_string
s;;
7 type platform
= | Punknown
| Plinux
| Posx
| Psun
| Pbsd
| Pcygwin
;;
9 let tempfailureretry f
a =
11 try f
a with Unix.Unix_error
(Unix.EINTR
, _
, _
) -> g ()
15 external cloexec
: Unix.file_descr
-> unit = "ml_cloexec";;
16 external hasdata
: Unix.file_descr
-> bool = "ml_hasdata";;
17 external toutf8
: int -> string = "ml_keysymtoutf8";;
18 external mbtoutf8
: string -> string = "ml_mbtoutf8";;
19 external popen
: string -> (Unix.file_descr
* int) list
-> int = "ml_popen";;
20 external platform
: unit -> (platform
* string array
) = "ml_platform";;
22 let now = Unix.gettimeofday
;;
23 let platform, uname
= platform ();;
24 let dolog fmt
= Format.ksprintf prerr_endline fmt
;;
27 | Unix.Unix_error
(e
, s, a) -> Printf.sprintf
"%s(%s) : %s (%d)"
28 s a (Unix.error_message e
) (Obj.magic e
)
29 | exn
-> Printexc.to_string exn
;
32 let error fmt
= Printf.kprintf failwith fmt
;;
34 module IntSet
= Set.Make
(struct type t
= int let compare = (-) end);;
36 let emptystr s = String.length
s = 0;;
37 let nonemptystr s = String.length
s > 0;;
38 let bound v minv maxv
= max minv
(min maxv v
);;
42 then failwith
"popen not implemented under cygwin yet"
48 type t
= private string
49 val of_string
: string -> t
50 val to_string
: t
-> string
60 let (~
<) = Opaque.of_string;;
61 let (~
>) = Opaque.to_string;;
63 let int_of_string_with_suffix s =
64 let l = String.length
s in
68 let suffix = Char.lowercase
s.[l-1] in
70 | 'k'
-> String.sub
s 0 (l-1), 10
71 | 'm'
-> String.sub
s 0 (l-1), 20
72 | '
g'
-> String.sub
s 0 (l-1), 30
76 let n = int_of_string
s1 in
77 let m = n lsl shift
in
79 then raise
(Failure
"value too large")
83 let string_with_suffix_of_int n =
87 let units = [(30, "G"); (20, "M"); (10, "K")] in
93 then string_of_int
h ^
s
95 let s = Printf.sprintf
"_%03d%s" h s in
101 let rec find = function
103 | (shift
, suffix) :: rest
->
104 if (n land ((1 lsl shift
) - 1)) = 0
105 then prettyint (n lsr shift
) ^
suffix
111 let color_of_string s =
112 Scanf.sscanf
s "%d/%d/%d" (fun r
g b ->
113 (float r
/. 256.0, float g /. 256.0, float b /. 256.0)
117 let color_to_string (r
, g, b) =
118 let r = truncate
(r *. 256.0)
119 and g = truncate
(g *. 256.0)
120 and b = truncate
(b *. 256.0) in
121 Printf.sprintf
"%d/%d/%d" r g b
125 if Filename.is_relative path
127 let cwd = Sys.getcwd
() in
128 if Filename.is_implicit path
129 then Filename.concat
cwd path
130 else Filename.concat
cwd (Filename.basename path
)
142 try tempfailureretry Unix.close fd
143 with exn
-> f
(exntos exn
)
147 let getenvwithdef name def
=
148 match Sys.getenv name
with
150 | exception Not_found
-> def
153 let newlinere = Str.regexp
"[\r\n]";;