112 |
|
|
113 |
external statfs : string -> statfs = "statfs_statfs" |
external statfs : string -> statfs = "statfs_statfs" |
114 |
external fstatfs : Unix.file_descr -> statfs = "statfs_fstatfs" |
external fstatfs : Unix.file_descr -> statfs = "statfs_fstatfs" |
115 |
|
external glibc_version : unit -> string = "glibc_version" |
116 |
|
|
117 |
|
let glibc_version_num () = |
118 |
|
begin |
119 |
|
try |
120 |
|
let s = Printf.sprintf "%s" (glibc_version ()) in s |
121 |
|
with e -> "" |
122 |
|
end |
123 |
|
|
124 |
let ( ** ) x y = Int64.mul x y |
let ( ** ) x y = Int64.mul x y |
125 |
let ( ++ ) x y = Int64.add x y |
let ( ++ ) x y = Int64.add x y |