open Diskimage_utils
+let plugin_id = "mbr"
+
let sector_size = 512
let sector_size64 = 512L
* (2) 'partno' is the partition number, starting at 1
* (cf. /dev/hda1 is the first partition).
* (3) 'dev' is the underlying block device.
+ * (4) natural blocksize to use is sector size.
*)
class partition_device partno start size dev =
let devname = dev#name in
let start = start *^ sector_size64 in
let size = size *^ sector_size64 in
object (self)
- inherit offset_device name start size dev
+ inherit offset_device name start size sector_size dev
end
(** Probe the
@raise Not_found if it is not an MBR.
*)
-let rec probe_mbr dev =
+let rec probe dev =
(* Read the first sector. *)
let bits =
try dev#read_bitstring 0L sector_size
let extendeds = List.concat extendeds in
primaries @ extendeds
*)
- { parts_name = "MBR"; parts = primaries }
+ { parts_plugin_id = plugin_id; parts = primaries }
| { _ } ->
raise Not_found (* not an MBR *)