blob: a1f77e395e6fd39ff09e04772e0167e64fb6a9d8 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
(* 'df' command for virtual domains.
* $Id$
*
* Support for LVM2 PVs.
*)
open Printf
(* Int64 operators for convenience. *)
let (+^) = Int64.add
let (-^) = Int64.sub
let ( *^ ) = Int64.mul
let (/^) = Int64.div
let probe_lvm2 target part_type fd start size =
Virt_df.ProbeFailed "LVM2 not supported yet"
(* Register with main code. *)
let () =
Virt_df.fs_register
[ 0x8e ] (* Partition type. *)
probe_lvm2
|