mirrors/libguestfs
1
0
Fork 0
mirror of https://github.com/libguestfs/libguestfs.git synced 2026-03-22 07:03:38 +00:00
Code Issues Packages Projects Releases Wiki Activity

resize: show sector infor in debug_partition

Browse Source 
Show partition sector data and target partition sector data
in debug_partition.
Also, if --verbose, call debug_partition again before
parted partitions.

Signed-off-by: Chen Hanxiao <chenhanxiao@cn.fujitsu.com>

RWMJ: Changed ~sectsize:sectsize => ~sectsize
This commit is contained in:
Chen Hanxiao
2015-05-14 01:19:36 -04:00
committed by Richard W.M. Jones
parent 6574134feb
commit 7eb1ed8cb4
1 changed files with 11 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
resize/resize.ml
View File

@@ -80,11 +80,15 @@ and partition_type =
| LogicalPartition
| NoTypePartition
let rec debug_partition p =
let rec debug_partition ?(sectsize=512L) p =
printf "%s:\n" p.p_name;
printf "\tpartition data: %ld %Ld-%Ld (%Ld bytes)\n"
p.p_part.G.part_num p.p_part.G.part_start p.p_part.G.part_end
p.p_part.G.part_size;
printf "\tpartition sector data: %Ld-%Ld\n"
(p.p_part.G.part_start /^ sectsize) (p.p_part.G.part_end /^ sectsize);
printf "\ttarget partition sector data: %Ld-%Ld \n"
p.p_target_start p.p_target_end;
printf "\tbootable: %b\n" p.p_bootable;
printf "\tpartition ID: %s\n"
(match p.p_id with
@@ -545,7 +549,7 @@ read the man page virt-resize(1).
if verbose then (
printf "%d partitions found\n" (List.length partitions);
List.iter debug_partition partitions
List.iter (debug_partition ~sectsize) partitions
);
(* Build a data structure describing LVs on the source disk. *)
@@ -1119,6 +1123,11 @@ read the man page virt-resize(1).
calculate_target_partitions 1 start ~create_surplus:true partitions in
if verbose then (
printf "After calculate target partitions:\n";
List.iter (debug_partition ~sectsize) partitions
);
let mbr_part_type x =
match parttype, x.p_part.G.part_num <= 4_l, x.p_type with
(* for GPT, all partitions are regarded as Primary Partition. *)