Reorganize the code so disk parsing is in a separate library.

[virt-df.git] / lib / diskimage_ext2.ml

diff --git a/virt-df/virt_df_ext2.ml b/lib/diskimage_ext2.ml
similarity index 97%
rename from virt-df/virt_df_ext2.ml
rename to lib/diskimage_ext2.ml
index f4a550f..0457597 100644 (file)
--- a/virt-df/virt_df_ext2.ml
+++ b/lib/diskimage_ext2.ml
@@ -22,8 +22,7 @@
 open Unix
 open Printf
 
-open Virt_df_gettext.Gettext
-open Virt_df
+open Diskimage_utils
 
 let superblock_offset = 1024L
 
@@ -114,7 +113,7 @@ let probe_ext2 dev =
    let overhead = (* XXX *) overhead in
 
    {
-     fs_name = s_ "Linux ext2/3";
+     fs_name = "Linux ext2/3";
      fs_block_size = block_size;
      fs_blocks_total = Int64.of_int32 s_blocks_count -^ overhead;
      fs_is_swap = false;
@@ -133,6 +132,3 @@ let probe_ext2 dev =
 
   | { _ } ->
       raise Not_found                  (* Not an EXT2/3 superblock. *)
-
-(* Register with main code. *)
-let () = filesystem_type_register "ext2" probe_ext2