diff options
Diffstat (limited to 'virt-df/virt_df_lvm2.ml')
-rw-r--r-- | virt-df/virt_df_lvm2.ml | 22 |
1 files changed, 22 insertions, 0 deletions
diff --git a/virt-df/virt_df_lvm2.ml b/virt-df/virt_df_lvm2.ml new file mode 100644 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 |