1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
|
package partition_table_sun;
use diagnostics;
use strict;
use vars qw(@ISA);
@ISA = qw(partition_table_raw);
use common qw(:common :system :file :functional);
use partition_table_raw;
use partition_table;
use c;
#- very bad and rough handling :(
my %typeToDos = (
5 => 0,
);
my %typeFromDos = reverse %typeToDos;
my ($main_format, $main_fields) = list2kv(
a128 => 'info',
a14 => 'spare0',
a32 => 'infos',
a246 => 'spare1',
n => 'rspeed',
n => 'pcylcount',
n => 'sparecyl',
a4 => 'spare2',
n => 'ilfact',
n => 'ncyl',
n => 'nacyl',
n => 'ntrks',
n => 'nsect',
a4 => 'spare3',
a64 => 'partitions',
n => 'magic',
n => 'csum',
);
$main_format = join '', @$main_format;
my ($fields1, $fields2) = ([ qw(type flags) ], [ qw(start_cylinder size) ]);
my ($format1, $format2) = ("x C x C", "N N");
my ($size1, $size2) = map { psizeof($_) } ($format1, $format2);
my $magic = 0xDABE;
my $nb_primary = 8;
my $offset = 0;
sub read($$) {
my ($hd, $sector) = @_;
my $tmp;
local *F; partition_table_raw::openit($hd, *F) or die "failed to open device";
c::lseek_sector(fileno(F), $sector, $offset) or die "reading of partition in sector $sector failed";
sysread F, $tmp, psizeof($main_format) or die "error while reading partition table in sector $sector";
my %info; @info{@$main_fields} = unpack $main_format, $tmp;
#- check magic number
$info{magic} == $magic or die "bad magic number";
@{$hd->{geom}}{qw(cylinders heads sectors)} = @info{qw(ncyl nsect ntrks)};
#- TODO verify checksum
my @pt = mapn {
my %h;
@h{@$fields1} = unpack $format1, $_[0];
@h{@$fields2} = unpack $format2, $_[1];
$h{start} = $sector + $h{start_cylinder} * partition_table::cylinder_size($hd);
$h{type} = $typeToDos{$h{type}} || $h{type};
$h{size} or $h{$_} = 0 foreach keys %h;
\%h;
} [ $info{infos} =~ /(.{$size1})/g ], [ $info{partitions} =~ /(.{$size2})/g ];
[ @pt ], \%info;
}
# write the partition table (and extended ones)
# for each entry, it uses fields: start, size, type, active
sub write($$$;$) {
my ($hd, $sector, $pt, $info) = @_;
local *F; partition_table_raw::openit($hd, *F, 2) or die "error opening device $hd->{device} for writing";
c::lseek_sector(fileno(F), $sector, $offset) or return 0;
#- TODO compute checksum
($info->{infos}, $info->{partitions}) = map { join '', @$_ } list2kv map {
$_->{start} % partition_table::cylinder_size($hd) == 0 or die "partition not at beginning of cylinder";
local $_->{type} = $typeFromDos{$_->{type}} || $_->{type};
local $_->{start_cylinder} = $_->{start} / partition_table::cylinder_size($hd) - $sector;
pack($format1, @$_{@$fields1}), pack($format2, @$_{@$fields2});
} @$pt;
syswrite F, pack($main_format, @$info{@$main_fields}), psizeof($main_format) or return 0;
1;
}
sub info {
my ($hd) = @_;
my $dtype_scsi = 4; #- taken from fdisk, removed unused one,
my $dtype_ST506 = 6; #- see fdisk for more
{
magic => $magic,
magic2 => $magic,
dtype => $hd->{device} =~ /^sd/ ? $dtype_scsi : $dtype_ST506,
secsize => $common::SECTORSIZE,
ncylinders => $hd->{geom}{cylinders},
secpercyl => partition_table::cylinder_size($hd),
secprtunit => $hd->{geom}{totalsectors},
rpm => 3600,
interleave => 1,
trackskew => 0,
cylskew => 0,
headswitch => 0,
trkseek => 0,
bbsize => 8192, #- size of boot area, with label
sbsize => 8192, #- max size of fs superblock
};
}
sub clear_raw {
my ($hd) = @_;
{ raw => [ ({}) x $nb_primary ], info => info($hd) };
}
1;
|
