search for: tpartit

...om> --- resize/resize.ml | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) diff --git a/resize/resize.ml b/resize/resize.ml index 4e58e84..21bba63 100644 --- a/resize/resize.ml +++ b/resize/resize.ml @@ -81,10 +81,11 @@ let rec debug_partition ?(sectsize=512L) p = 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 partit...

...+^ 1' resize/resize.ml | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) diff --git a/resize/resize.ml b/resize/resize.ml index 4e58e84..602a583 100644 --- a/resize/resize.ml +++ b/resize/resize.ml @@ -81,10 +81,11 @@ let rec debug_partition ?(sectsize=512L) p = 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 partit...

...size.ml index 8e69d44..ae8339d 100644 --- a/resize/resize.ml +++ b/resize/resize.ml @@ -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 partit...

...-- > 1 file changed, 5 insertions(+), 4 deletions(-) > > diff --git a/resize/resize.ml b/resize/resize.ml > index 4e58e84..21bba63 100644 > --- a/resize/resize.ml > +++ b/resize/resize.ml > @@ -81,10 +81,11 @@ let rec debug_partition ?(sectsize=512L) p = > 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); > - pri...

...ing option; (* GPT ID, if it has one. *) p_type : partition_content; (* Content type and content size. *) (* What we're going to do: *) @@ -75,7 +76,14 @@ let rec debug_partition p = p.p_part.G.part_size; eprintf "\tbootable: %b\n" p.p_bootable; eprintf "\tpartition ID: %s\n" - (match p.p_mbr_id with None -> "(none)" | Some i -> sprintf "0x%x" i); + (match p.p_mbr_id, p.p_gpt_type with + | None, None -> "(none)" + | Some i, None -> sprintf "0x%x" i + | None, Some i -> i + | Some _...

...one. *) > p_type : partition_content; (* Content type and content size. *) > > (* What we're going to do: *) > @@ -75,7 +76,14 @@ let rec debug_partition p = > p.p_part.G.part_size; > eprintf "\tbootable: %b\n" p.p_bootable; > eprintf "\tpartition ID: %s\n" > - (match p.p_mbr_id with None -> "(none)" | Some i -> sprintf "0x%x" i); > + (match p.p_mbr_id, p.p_gpt_type with > + | None, None -> "(none)" > + | Some i, None -> sprintf "0x%x" i > + | None, Som...

...ize.ml +++ b/resize/resize.ml @@ -73,6 +73,9 @@ and partition_id = | MBR_ID of int (* MBR ID. *) | GPT_Type of string (* GPT UUID. *) +type partition_type = + | PrimaryPartition + let rec debug_partition p = eprintf "%s:\n" p.p_name; eprintf "\tpartition data: %ld %Ld-%Ld (%Ld bytes)\n" @@ -443,14 +446,15 @@ read the man page virt-resize(1). | MBR_ID _ | GPT_Type _ | No_ID -> false in - let partitions : partition list = + let find_partitions part_type = let parts = Array.to_list (g#part_list "/dev/sda") in -...

...ExtendedPartition + | LogicalPartition + | NoTypePartition let rec debug_partition p = printf "%s:\n" p.p_name; @@ -99,7 +102,8 @@ let rec debug_partition p = (match p.p_guid with | Some guid -> guid | None -> "(none)" - ) + ); + printf "\tpartition type: %s\n" (string_of_partition_type p.p_mbr_p_type) and string_of_partition_content = function | ContentUnknown -> "unknown data" | ContentPV sz -> sprintf "LVM PV (%Ld bytes)" sz @@ -110,6 +114,11 @@ and string_of_partition_content_no_size = function |...

Hi Rich, This is v3 series to add support for resizing MBR logical partitions. changes to v2: 1. remove p_part_num 2. remove filter_parts 3. name the function calculate_target_partitions 4. remove the code to restart guest introduced in v2 changes to v1: 1. spit the patches so it's easier to review 2. fix the parted error caused by unaligned logical partitions 3. extend the

Hi Rich, This is v2 series to add support for resizing MBR logical partitions. I found the reason of problem in v1 that parted reports error when adding logical partitions, is that logical partitions are not aligned to 2 sectors. This problem doesn't appear in v2. This is for early review, because of: 1. I'm not sure the splitting of patches is appropriate or not, but it's much

Hi Rich, This is v3 series to add support for resizing MBR logical partitions. changes to v3: 1. merge patch 1 and patch 3 in v3 2. let mbr_part_type return 'primary' for GPT partitions 3. add test for resizing logical partitions 4. fix extending the extended partition (yet). see patch 7. changes to v2: 1. remove p_part_num 2. remove filter_parts 3. name the function