git.annexia.org
/
virt-top.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Complete rewrite of virt-df:
[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
old mode 100755
(executable)
new mode 100644
(file)
index
8dc0c05
..
a79ec7f
--- a/
virt-df/virt_df_lvm2.ml
+++ b/
virt-df/virt_df_lvm2.ml
@@
-21,18
+21,12
@@
*)
open Printf
*)
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 "LVM2 not supported yet"
+let probe_lvm2 (dev : device) =
+ raise Not_found
(* Register with main code. *)
let () =
(* Register with main code. *)
let () =
- Virt_df.fs_register
- [ 0x8e ] (* Partition type. *)
- probe_lvm2
+ filesystem_type_register "LVM2" probe_lvm2