diff options
| author | Richard W.M. Jones <rjones@redhat.com> | 2008-04-14 17:48:49 +0100 |
|---|---|---|
| committer | Richard W.M. Jones <rjones@redhat.com> | 2008-04-14 17:48:49 +0100 |
| commit | e6050cae9eee80791c3bb26f34c61f7dc89b142f (patch) | |
| tree | b28a392238e37d114b5367969dbdf7f44f852bb8 /virt-df/virt_df_lvm2.ml | |
| parent | f31c12ec325dd0f4f77e278c243d89da4ea228b8 (diff) | |
| download | virt-top-e6050cae9eee80791c3bb26f34c61f7dc89b142f.tar.gz virt-top-e6050cae9eee80791c3bb26f34c61f7dc89b142f.tar.xz virt-top-e6050cae9eee80791c3bb26f34c61f7dc89b142f.zip | |
Complete rewrite of virt-df:
- Uses pa_bitmatch for robust parsing of disk structures.
- Completely modularized.
Diffstat (limited to 'virt-df/virt_df_lvm2.ml')
| -rw-r--r-- | virt-df/virt_df_lvm2.ml | 15 |
1 files changed, 4 insertions, 11 deletions
diff --git a/virt-df/virt_df_lvm2.ml b/virt-df/virt_df_lvm2.ml index d01a5a8..a79ec7f 100644 --- a/virt-df/virt_df_lvm2.ml +++ b/virt-df/virt_df_lvm2.ml @@ -22,18 +22,11 @@ open Printf open Virt_df_gettext.Gettext +open Virt_df -(* 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 (s_ "LVM2 not supported yet") +let probe_lvm2 (dev : device) = + raise Not_found (* Register with main code. *) let () = - Virt_df.fs_register - [ 0x8e ] (* Partition type. *) - probe_lvm2 + filesystem_type_register "LVM2" probe_lvm2 |