diff options
Diffstat (limited to 'perl-install/devices.pm')
| -rw-r--r-- | perl-install/devices.pm | 107 |
1 files changed, 107 insertions, 0 deletions
diff --git a/perl-install/devices.pm b/perl-install/devices.pm new file mode 100644 index 000000000..704b3d40d --- /dev/null +++ b/perl-install/devices.pm @@ -0,0 +1,107 @@ +package devices; + +use diagnostics; +use strict; + +use common qw(:system :file); +use run_program; +use log; +use c; + +1; + + +sub size($) { + local *F; + sysopen F, $_[0], 0 or log::l("open $_[0]: $!"), return 0; + + my $valid_offset = sub { sysseek(F, $_[0], 0) && sysread(F, my $a, 1) }; + + # first try getting the size nicely + my $size = 0; + ioctl(F, c::BLKGETSIZE(), $size) and return unpack("i", $size) * $common::SECTORSIZE; + + # sad it didn't work, well searching the size using the dichotomy algorithm! + my $low = 0; + my ($high, $mid); + + # first find n where 2^n < size <= 2^n+1 + for ($high = 1; $high > 0 && &$valid_offset($high); $high *= 2) { $low = $high; } + + while ($low < $high - 1) { + $mid = int ($low + $high) / 2; + &$valid_offset($mid) ? $low : $high = $mid; + } + $low + 1; +} + +sub make($) { + local $_ = my $file = $_[0]; + my ($type, $major, $minor); + + unless (s,^/(dev|tmp)/,,) { + $file = -e "/dev/$file" ? "/dev/$file" : "/tmp/$file"; + } + + -e $file and return $file; # assume nobody takes fun at creating files named as device + + if (/^sd(.)(\d\d)/) { + $type = c::S_IFBLK(); + $major = 8; + $minor = ord($1) - ord('a') + $2; + } elsif (/^hd(.)(\d{0,2})/) { + $type = c::S_IFBLK(); + ($major, $minor) = + @{ $ {{'a' => [3, 0], 'b' => [3, 64], + 'c' => [22,0], 'd' => [22,64], + 'e' => [33,0], 'f' => [33,64], + 'g' => [34,0], 'h' => [34,64], + }}{$1} or die "unknown device $_" }; + $minor += $2 || 0; + } elsif (/^ram(.)/) { + $type = c::S_IFBLK(); + $major = 1; + $minor = $1 eq '' ? 1 : $1; + } elsif (m|^rd/c(\d+)d(\d+)(p(\d+))?|) { + # dac 960 "/rd/cXdXXpX" + $type = c::S_IFBLK(); + $major = 48 + $1; + $minor = 8 * $2 + $4; + } elsif (m|ida/c(\d+)d(\d+)(p(\d+))|) { + # Compaq Smart Array "ida/c0d0{p1}" + $type = c::S_IFBLK(); + $major = 72 + $1; + $minor = 16 * $2 + $4; + } else { + ($type, $major, $minor) = + @{ $ {{"aztcd" => [ c::S_IFBLK(), 29, 0 ], + "bpcd" => [ c::S_IFBLK(), 41, 0 ], + "cdu31a" => [ c::S_IFBLK(), 15, 0 ], + "cdu535" => [ c::S_IFBLK(), 24, 0 ], + "cm206cd" => [ c::S_IFBLK(), 32, 0 ], + "tty" => [ c::S_IFCHR(), 5, 0 ], + "fd0" => [ c::S_IFBLK(), 2, 0 ], + "fd1" => [ c::S_IFBLK(), 2, 1 ], + "gscd" => [ c::S_IFBLK(), 16, 0 ], + "lp0" => [ c::S_IFCHR(), 6, 0 ], + "lp1" => [ c::S_IFCHR(), 6, 1 ], + "lp2" => [ c::S_IFCHR(), 6, 2 ], + "mcd" => [ c::S_IFBLK(), 23, 0 ], + "mcdx" => [ c::S_IFBLK(), 20, 0 ], + "nst0" => [ c::S_IFCHR(), 9, 128 ], + "optcd" => [ c::S_IFBLK(), 17, 0 ], + "sbpcd" => [ c::S_IFBLK(), 25, 0 ], + "scd0" => [ c::S_IFBLK(), 11, 0 ], + "scd1" => [ c::S_IFBLK(), 11, 1 ], + "sjcd" => [ c::S_IFBLK(), 18, 0 ], + }}{$_} or die "unknown device $type" }; + } + + # make a directory for this inode if needed. + mkdir dirname($file), 0755; + + syscall_('mknod', $file, $type | 0600, makedev($major, $minor)) or die "mknod failed (dev:$_): $!"; + + $file; +} + |