drakx - Mageia Installer and base platform for many utilities

diff options

author	Florent Villard <warly@mandriva.com>	2004-03-18 18:01:03 +0000
committer	Florent Villard <warly@mandriva.com>	2004-03-18 18:01:03 +0000
commit	c45911e1a746d32b465165e7c8a34a6c3681bbf2 (patch)
tree	011d100b7b5bc9c2d735da0794fd723b7ea98059 /perl-install/standalone/icons
parent	76e84bdce6b55f6e126effb6cf2b37458b0f2b88 (diff)
download	drakx-c45911e1a746d32b465165e7c8a34a6c3681bbf2.tar drakx-c45911e1a746d32b465165e7c8a34a6c3681bbf2.tar.gz drakx-c45911e1a746d32b465165e7c8a34a6c3681bbf2.tar.bz2 drakx-c45911e1a746d32b465165e7c8a34a6c3681bbf2.tar.xz drakx-c45911e1a746d32b465165e7c8a34a6c3681bbf2.zip

move the DRIVER part from INSTALL to SYSTEM

fix speedtouch-mgm -> mgmt

Diffstat (limited to 'perl-install/standalone/icons')

0 files changed, 0 insertions, 0 deletions

package devices; # $Id$ use diagnostics; use strict; use common; use run_program; use log; use c; sub size { my ($dev) = @_; sysopen(my $F, $dev, 0) or log::l("open $dev: $!"), return 0; my $valid_offset = sub { sysseek($F, $_[0], 0) && sysread($F, my $_a, 1) }; #- first try getting the size nicely if (my $size = c::total_sectors(fileno $F)) { return $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 del_loop { my ($dev) = @_; run_program::run("losetup", "-d", $dev); } sub find_free_loop { foreach (0..7) { 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, $encrypt_key, $encryption) = @_; my $dev = find_free_loop(); if ($encrypt_key && $encryption) { my $cmd = "losetup -p 0 -e $encryption $dev $file"; log::l("calling $cmd"); open(my $F, "|$cmd"); print $F $encrypt_key; close $F or die "losetup failed"; } else { run_program::run("losetup", $dev, $file) or return; } $dev; } 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 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|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 (/(.*?)(\d+)$/) { ($type, $major, $minor) = @{ ${{"fd" => [ c::S_IFBLK(), 2, 0 ], "hidbp-mse-" => [ c::S_IFCHR(), 10, 32 ], "lp" => [ c::S_IFCHR(), 6, 0 ], "usb/lp" => [ c::S_IFCHR(), 180, 0 ], "input/event" => [ c::S_IFCHR(), 13, 64 ], "loop" => [ c::S_IFBLK(), 7, 0 ], "md" => [ c::S_IFBLK(), 9, 0 ], "nst" => [ c::S_IFCHR(), 9, 128 ], "scd" => [ c::S_IFBLK(), 11, 0 ], "ttyS" => [ c::S_IFCHR(), 4, 64 ], "ubd/" => [ c::S_IFBLK(), 98, 0 ], }}{$1} }; $minor += $2; } 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 ], "sbpcd" => [ c::S_IFBLK(), 25, 0 ], "sjcd" => [ c::S_IFBLK(), 18, 0 ], "tty" => [ c::S_IFCHR(), 5, 0 ], "usbmouse" => [ c::S_IFCHR(), 13, 63 ], #- aka /dev/input/mice "adbmouse" => [ c::S_IFCHR(), 10, 10 ], #- PPC "zero" => [ c::S_IFCHR(), 1, 5 ], "null" => [ c::S_IFCHR(), 1, 3 ], }}{$_} or die "unknown device $_ (caller is " . join(":", caller()) . ")" }; } ($type, $major, $minor); } sub make($) { local $_ = my $file = $_[0]; if (m,^(.*/(?:dev|tmp))/(.*),) { $_ = $2; } else { $file =~ m|^/| && -e $file or $file = "/tmp/$_"; $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) = eval { entry($_) }; $@ and die "unknown device $_ (caller is " . join(":", caller()) . ")"; if ($file =~ m|/dev/| && -e '/dev/.devfsd') { #- argh, creating devices is no good with devfs... #- return the file even if the device file doesn't 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; } undef; } sub from_devfs { my ($dev) = @_; my %from_devfs = reverse %to_devfs; if (my $r = $from_devfs{$dev}) { return $r; } elsif ($dev =~ /(.*?)(\d+)$/) { my %from_devfs_prefix = reverse %to_devfs_prefix; my $r = $from_devfs_prefix{$1}; return "$r$2" if $r; } undef; } 1;


context:
space:
mode: