79 |
|
|
80 |
let mini (x: int) y = if x < y then x else y |
let mini (x: int) y = if x < y then x else y |
81 |
|
|
|
let write fd s pos len = Unix.write fd s pos (mini len 16000) |
|
82 |
|
let write fd s pos len = Unix.write fd s pos (mini len 16000) |
83 |
|
|
84 |
|
let bsize dir = Int64.of_int (-1) |
85 |
|
let blocks dir = Int64.of_int (-1) |
86 |
|
let bfree dir = Int64.of_int (-1) |
87 |
|
let bavail dir = Int64.of_int (-1) |
88 |
|
let fnamelen dir = Int64.of_int 255 |
89 |
|
let disktotal dir = Int64.of_int (-1) |
90 |
|
let diskfree dir = Int64.of_int (-1) |
91 |
|
let diskused dir = Int64.of_int (-1) |
92 |
|
let percentused dir = (-1) |
93 |
|
let percentfree dir = (-1) |
94 |
|
let filesystem dir = "not supported" |