* configure.ac: Changed version to 0.3.2.9.

[virt-top.git] / virt-df / virt_df_lvm2.ml

diff --git a/virt-df/virt_df_lvm2.ml b/virt-df/virt_df_lvm2.ml
new file mode 100644 (file)
index 0000000..a1f77e3
--- /dev/null
+++ b/virt-df/virt_df_lvm2.ml
@@ -0,0 +1,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