virt-df/virt_df_lvm2.ml

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