package devices; # $Id$
use diagnostics;
use strict;
use common;
use run_program;
use log;
use c;
sub del_loop {
my ($dev) = @_;
run_program::run("losetup", "-d", $dev);
}
sub find_free_loop() {
foreach (0..255) {
my $dev = make("loop$_");
sysopen(my $F, $dev, 2) or next;
!ioctl($F, c::LOOP_GET_STATUS(), my $_tmp) && $! == 6 or next; #- 6 == ENXIO
return $dev;
}
die "no free loop found";
}
sub set_loop {
my ($file, $o_encrypt_key, $o_encryption) = @_;
eval { modules::load('loop') };
my $dev = find_free_loop();
if ($o_encrypt_key && $o_encryption) {
eval { modules::load('cryptoloop', arch() =~ /i.86/ ? 'aes-i586' : 'aes') };
my $cmd = "losetup -p 0 -e $o_encryption $dev $file";
log::l("calling $cmd");
open(my $F, "|$cmd");
print $F $o_encrypt_key;
close $F or die "losetup failed";
} else {
run_program::run("losetup", $dev, $file) or return;
}
$dev;
}
sub find_clp_loop {
my ($name) = @_;
foreach (0..255) {
my $dev = make("loop$_");
my ($file) = `losetup $dev 2>/dev/null` =~ m!\((.*?)\)! or return;
$file =~ s!^/sysroot/!/!;
basename($file) eq $name and return $dev, $file;
}
undef;
}
sub get_dynamic_major {
my ($name) = @_;
cat_('/proc/devices') =~ /^(\d+) \Q$name\E$/m && $1;
}
sub init_device_mapper() {
eval { modules::load('dm-mod') };
make('urandom');
my $control = '/dev/mapper/control';
if (! -e $control) {
my ($major) = get_dynamic_major('misc') or return;
my ($minor) = cat_('/proc/misc') =~ /(\d+) device-mapper$/m or return;
mkdir_p(dirname($control));
syscall_('mknod', $control, c::S_IFCHR() | 0600, makedev($major, $minor)) or die "mknod $control failed: $!";
}
}
sub entry {
my ($type, $major, $minor);
local ($_) = @_;
if (/^0x([\da-f]{3,4})$/i) {
$type = c::S_IFBLK();
($major, $minor) = unmakedev(hex $1);
} elsif (/^sd(.)(\d{0,2})/) {
$type = c::S_IFBLK();
$major = 8;
$minor = 16 * (ord($1) - ord('a')) + ($2 || 0);
} 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],
'i' => [56,0], 'j' => [56,64],
'k' => [57,0], 'l' => [57,64],
'm' => [88,0], 'n' => [88,64],
'o' => [89,0], 'p' => [89,64],
'q' => [90,0], 'r' => [90,64],
's' => [91,0], 't' => [91,64],
}}{$1} or internal_error("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|cciss)/c(\d+)d(\d+)(?:p(\d+))?,) {
# Compaq Smart Array "ida/c0d0{p1}"
$type = c::S_IFBLK();
$major = ($1 eq 'ida' ? 72 : 104) + $2;
$minor = 16 * $3 + ($4 || 0);
} elsif (m,(ataraid)/d(\d+)(?:p(\d+))?,) {
# ATA raid "ataraid/d0{p1}"
$type = c::S_IFBLK();
$major = 114;
$minor = 16 * $1 + ($2 || 0);
} elsif (my ($prefix, $nb) = /(.*?)(\d+)$/) {
my $f = ${{"fd" => sub { c::S_IFBLK(), 2, 0 },
"hidbp-mse-" => sub { c::S_IFCHR(), 10, 32 },
"lp" => sub { c::S_IFCHR(), 6, 0 },
"usb/lp" => sub { c::S_IFCHR(), 180, 0 },
"input/event" => sub { c::S_IFCHR(), 13, 64 },
"loop" => sub { c::S_IFBLK(), 7, 0 },
"md" => sub { c::S_IFBLK(), 9, 0 },
"nst" => sub { c::S_IFCHR(), 9, 128 },
"sr" => sub { c::S_IFBLK(), 11, 0 },
"ttyS" => sub { c::S_IFCHR(), 4, 64 },
"ubd/" => sub { c::S_IFBLK(), 98, 0 },
"dm-" => sub { c::S_IFBLK(), get_dynamic_major('device-mapper'), 0 },
}}{$prefix} or internal_error("unknown device $prefix $nb");
($type, $major, $minor) = $f->();
$minor += $nb;
}
unless ($type) {
($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 ],
"gscd" => [ c::S_IFBLK(), 16, 0 ],
"mcd" => [ c::S_IFBLK(), 23, 0 ],
"mcdx" => [ c::S_IFBLK(), 20, 0 ],
"mem" => [ c::S_IFCHR(), 1, 1 ],
"optcd" => [ c::S_IFBLK(), 17, 0 ],
"kbd" => [ c::S_IFCHR(), 11, 0 ],
"psaux" => [ c::S_IFCHR(), 10, 1 ],
"atibm" => [ c::S_IFCHR(), 10, 3 ],
"random" => [ c::S_IFCHR(), 1, 8 ],
"urandom" => [ c::S_IFCHR(), 1, 9 ],
"sbpcd" => [ c::S_IFBLK(), 25, 0 ],
"sjcd" => [ c::S_IFBLK(), 18, 0 ],
"tty" => [ c::S_IFCHR(), 5, 0 ],
"input/mice"
=> [ c::S_IFCHR(), 13, 63 ],
"usbmouse" => [ c::S_IFCHR(), 13, 63 ], #- aka /dev/input/mice
"adbmouse" => [ c::S_IFCHR(), 10, 10 ], #- PPC
"vcsa" => [ c::S_IFCHR(), 7, 128 ],
"zero" => [ c::S_IFCHR(), 1, 5 ],
"null" => [ c::S_IFCHR(), 1, 3 ],
}}{$_} or internal_error("unknown device $_") };
}
($type, $major, $minor);
}
sub make($) {
local $_ = my $file = $_[0];
if (m!^(.*/dev)/(.*)!) {
$_ = $2;
} else {
$file =~ m|^/| && -e $file or $file = "/dev/$_";
}
-e $file and return $file; #- assume nobody takes fun at creating files named as device
my ($type, $major, $minor) = entry($_);
if ($file =~ m|/dev/| && -e '/dev/.devfsd') {
#- argh, creating devices is no good with devfs...
#- return the file even if the device file does not exist
#- the caller will fail or not, better compatibility than raising an exception here
return $file;
}
#- make a directory for this inode if needed.
mkdir_p(dirname($file));
syscall_('mknod', $file, $type | 0600, makedev($major, $minor)) or die "mknod failed (dev $_): $!";
$file;
}
#- only isomorphic entries are allowed,
#- i.e. entries which can go devfs -> normal and normal -> devfs
my %to_devfs = (
psaux => 'misc/psaux',
usbmouse => 'input/mice',
);
my %to_devfs_prefix = (
ttyS => 'tts/',
);
sub to_devfs {
my ($dev) = @_;
if (my $r = $to_devfs{$dev}) {
return $r;
} elsif ($dev =~ /(.*?)(\d+)$/) {
my $r = $to_devfs_prefix{$1};
return "$r$2" if $r;
}
readlink("/dev/" . $dev);
}
sub simple_partition_scan {
my ($part) = @_;
$part->{device} =~ /([hs]d[a-z])(\d+)$/;
}
sub part_number {
my ($part) = @_;
(simple_partition_scan($part))[1];
}
sub part_prefix {
my ($part) = @_;
(simple_partition_scan($part))[0];
}
1;
98f6a0851ebaec6ed882df87a.tar.gz
forums-8c44b2721ceba7c98f6a0851ebaec6ed882df87a.tar.bz2
forums-8c44b2721ceba7c98f6a0851ebaec6ed882df87a.tar.xz
forums-8c44b2721ceba7c98f6a0851ebaec6ed882df87a.zip
Merge remote-tracking branch 'PayBas/ticket/12648' into develop-ascraeus
* PayBas/ticket/12648:
[ticket/12648] RTL fix & ACP border fix
[ticket/12648] Slightly clear ACP active tab border
[ticket/12648] Fix poll tab and revert unrelated color change
[ticket/12648] Fix poll tab display error
[ticket/12648] Added ARIA functionality
[ticket/12648] Fix and modernize ACP header tabs
[ticket/12648] More style fixes and also cleaned up CP left navigation
[ticket/12648] IE8 & IE9 color fix
[ticket/12648] Improve UCP/MCP/Posting tabs
0 files changed, 0 insertions, 0 deletions