class virtual device :
object
method virtual name : string
- method virtual size : int64
- method read : int64 -> int -> string
- method read_bitstring : int64 -> int -> Bitmatch.bitstring
- method virtual blocksize : int
- method virtual mapblock : int64 -> (device * int64) list
+ method virtual size : Int63.t
+ method read : Int63.t -> Int63.t -> string
+ method read_bitstring : Int63.t -> Int63.t -> Bitmatch.bitstring
+ method virtual blocksize : Int63.t
+ method virtual map_block : Int63.t -> (device * Int63.t) list
+ method virtual contiguous : Int63.t -> Int63.t
end
-class block_device : string -> int ->
+class block_device : string -> Int63.t ->
object
method name : string
- method size : int64
- method read : int64 -> int -> string
- method read_bitstring : int64 -> int -> Bitmatch.bitstring
- method blocksize : int
- method mapblock : int64 -> (device * int64) list
+ method size : Int63.t
+ method read : Int63.t -> Int63.t -> string
+ method read_bitstring : Int63.t -> Int63.t -> Bitmatch.bitstring
+ method blocksize : Int63.t
+ method map_block : Int63.t -> (device * Int63.t) list
+ method contiguous : Int63.t -> Int63.t
method close : unit -> unit
end
-class offset_device : string -> int64 -> int64 -> int -> device ->
+class offset_device : string -> Int63.t -> Int63.t -> Int63.t -> device ->
object
method name : string
- method size : int64
- method read : int64 -> int -> string
- method read_bitstring : int64 -> int -> Bitmatch.bitstring
- method blocksize : int
- method mapblock : int64 -> (device * int64) list
+ method size : Int63.t
+ method read : Int63.t -> Int63.t -> string
+ method read_bitstring : Int63.t -> Int63.t -> Bitmatch.bitstring
+ method blocksize : Int63.t
+ method map_block : Int63.t -> (device * Int63.t) list
+ method contiguous : Int63.t -> Int63.t
end
-class blocksize_overlay : int -> device ->
+class blocksize_overlay : Int63.t -> device ->
object
method name : string
- method size : int64
- method read : int64 -> int -> string
- method read_bitstring : int64 -> int -> Bitmatch.bitstring
- method blocksize : int
- method mapblock : int64 -> (device * int64) list
+ method size : Int63.t
+ method read : Int63.t -> Int63.t -> string
+ method read_bitstring : Int63.t -> Int63.t -> Bitmatch.bitstring
+ method blocksize : Int63.t
+ method map_block : Int63.t -> (device * Int63.t) list
+ method contiguous : Int63.t -> Int63.t
end
val null_device : device
and partitions = {
parts_plugin_id : parts_plugin_id;
+ parts_dev : device;
parts : partition list;
}
and partition = {
and filesystem = {
fs_plugin_id : fs_plugin_id;
fs_dev : device;
- fs_blocksize : int;
- fs_blocks_total : int64;
+ fs_blocksize : Int63.t;
+ fs_blocks_total : Int63.t;
fs_is_swap : bool;
- fs_blocks_reserved : int64;
- fs_blocks_avail : int64;
- fs_blocks_used : int64;
- fs_inodes_total : int64;
- fs_inodes_reserved : int64;
- fs_inodes_avail : int64;
- fs_inodes_used : int64;
+ fs_blocks_reserved : Int63.t;
+ fs_blocks_avail : Int63.t;
+ fs_blocks_used : Int63.t;
+ fs_inodes_total : Int63.t;
+ fs_inodes_reserved : Int63.t;
+ fs_inodes_avail : Int63.t;
+ fs_inodes_used : Int63.t;
}
and pv = {
lvm_plugin_id : lvm_plugin_id;
+ pv_dev : device;
pv_uuid : string;
}
and lv = {
val group_by : ?cmp:('a -> 'a -> int) -> ('a * 'b) list -> ('a * 'b list) list
(** Group a sorted list of pairs by the first element of the pair. *)
+val sort_uniq : ?cmp:('a -> 'a -> int) -> 'a list -> 'a list
+(** [sort_uniq xs] returns the list [xs], sorted and with all duplicate
+ elements removed. *)
+
+val uniq : ?cmp:('a -> 'a -> int) -> 'a list -> 'a list
+(** [uniq xs] removes adjacent duplicate elements from a list, like
+ the Unix uniq(1) command. *)
+
val range : int -> int -> int list
(** [range a b] returns the list of integers [a <= i < b].
If [a >= b] then the empty list is returned.
*)
-
-val ( +* ) : int32 -> int32 -> int32
-val ( -* ) : int32 -> int32 -> int32
-val ( ** ) : int32 -> int32 -> int32
-val ( /* ) : int32 -> int32 -> int32
-
-val ( +^ ) : int64 -> int64 -> int64
-val ( -^ ) : int64 -> int64 -> int64
-val ( *^ ) : int64 -> int64 -> int64
-val ( /^ ) : int64 -> int64 -> int64
-(** int32 and int64 infix operators for convenience. *)