virt-df/virt_df_lvm2.ml

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