drakx - Mageia Installer and base platform for many utilities

diff options

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

-rwxr-xr-x

1 files changed, 1 insertions, 1 deletions

use strict; BEGIN { #- for testing purpose (my $f = __FILE__) =~ s|/[^/]*$||; push @INC, $f; } use MDK::Common; use list_modules; #- seldom used modules #- we don't bother making a special floppy for those my %modules_only_for_all_img = ( 'network/main' => [ qw(acenic), qw(aironet4500_card com20020-pci hamachi starfire winbond-840), if_(arch() =~ /alpha|ppc/, qw(sb1000)), qw(iph5526), qw(ac3200 at1700 atp ni5010 ni52 ni65), #- unused from Jeff ], 'disk/scsi' => [ # ISA cards: qw(NCR53c406a aha152x psi240i qlogicfas qlogicfc wd7000 sim710 t128 ultrastor), '53c7,8xx', qw(qla2x00 in2000 pas16 a100u2w seagate g_NCR5380), if_(arch() =~ /x86_64/, qw(53c7,8xx nsp32 initio advansys atp870u)), #- old qw(AM53C974), # deprecated by tmscsim qw(u14-34f), #- duplicate from ultrastor.o #- still used, keeping them: qw(aha1542 sym53c416), qw(lpfcdd), #- HUGE!! qw(dc395x dc395x_trm dmx3191d qla1280 BusLogic fdomain), qw(pci2220i eata eata_pio eata_dma), 'aic7xxx_old', 'qlogicisp', 'dtc', ], 'disk/sata' => [ qw(ahci ata_piix sata_nv sata_promise sata_sil sata_sis sata_svw sata_sx4 sata_uli sata_via sata_vsc sx8), ], 'disk/hardware_raid' => [ qw(i2o_block qla2200 qla2300 cpqfc DAC960 gdth pdc-ultra mptscsih), ], ); #- modules that will only be available in stage2 #- those modules are NOT in all.img, network.img... #- there should only be modules that can't be used on stage1 #- completly unused modules should be removed directly from the kernel #- (and so be removed from stage2 too) my %modules_removed_from_stage1 = ( 'network/main' => [ 'plip' ], 'disk/hardware_raid' => [ qw(imm ppa), ], ); my @modules_always_on_stage1 = qw(floppy); sub flatten_and_check { my ($h) = @_; map { my $category = $_; my @l = @{$h->{$category}}; if (my @bad = difference2(\@l, [ category2modules($category) ])) { foreach (@bad) { if (my $cat = module2category($_)) { warn "ERROR in modules.pl: module $_ is in category $cat, not in $category\n"; } else { warn "ERROR in modules.pl: unknown module $_\n"; } } exit 1; } @l; } keys %$h; } my @modules_only_for_all_img = flatten_and_check(\%modules_only_for_all_img); my @modules_removed_from_stage1 = flatten_and_check(\%modules_removed_from_stage1); my %images = ( pcmcia => 'fs/cdrom|loopback disk/cdrom|raw|pcmcia bus/pcmcia', cdrom => 'fs/cdrom|loopback disk/cdrom|raw|scsi', network => 'bus/usb|usb_keyboard|pcmcia disk/raw|usb', network_drivers => 'fs/network|loopback network/main|pcmcia|usb|raw|gigabit', ka => 'fs/network network/main|raw|gigabit', all => 'fs/cdrom disk/cdrom|raw bus/usb|usb_keyboard disk/usb|scsi fs/loopback|local bus/pcmcia disk/ide|pcmcia|sata|hardware_raid fs/network network/main|pcmcia|usb|raw|gigabit|wireless|tokenring bus/firewire disk/firewire', ); my $verbose = $ARGV[0] eq '-v' && shift; my ($f, @para) = @ARGV; $::{$f}->(@para); sub image2modules { my ($image) = @_; my $l = $images{$image}; my @modules = if_($image !~ /drivers/, @modules_always_on_stage1); push @modules, map { category2modules($_) } split(' ', $l); @modules = difference2(\@modules, \@modules_removed_from_stage1); if ($image !~ /all/) { @modules = difference2(\@modules, \@modules_only_for_all_img); } @modules; } sub remove_unneeded_modules { my ($kern_ver) = @_; #- need creating a first time the modules.dep for all modules #- it will be redone in make_modules_dep when unneeded modules are removed make_modules_dep($kern_ver); load_dependencies("all.kernels/$kern_ver/modules.dep"); my $ext = module_extension($kern_ver); my @all = list_modules::all_modules(); my @all_with_deps = map { dependencies_closure($_) } @all; my %wanted_modules = map {; "$_.$ext" => 1 } @all_with_deps; foreach (all("all.kernels/$kern_ver/modules")) { $wanted_modules{$_} or unlink "all.kernels/$kern_ver/modules/$_"; } } sub make_modules_per_image { my ($kern_ver) = @_; make_modules_dep($kern_ver); load_dependencies("all.kernels/$kern_ver/modules.dep"); my $ext = module_extension($kern_ver); foreach my $image (keys %images) { my @modules_with_deps = uniq(map { dependencies_closure($_) } image2modules($image)); my @l = map { "$_.$ext" } @modules_with_deps; my $dir = "all.kernels/$kern_ver/modules"; @l = grep { -e "$dir/$_" } @l; if ($image =~ /all/) { system("cd $dir ; tar cf ../${image}_modules.tar @l") == 0 or die "tar failed\n"; } else { my $gi_base_dir = chomp_(`pwd`) . '/..'; system("cd $dir ; $gi_base_dir/mdk-stage1/mar/mar -c ../${image}_modules.mar @l") == 0 or die "mar failed\n"; } } } sub make_modules_dep { my ($kern_ver) = @_; my @l = kernel_is_26($kern_ver) ? cat_("all.kernels/$kern_ver/lib/modules/$kern_ver/modules.dep") : `/sbin/depmod-24 -F all.kernels/$kern_ver/boot/System.map-$kern_ver -e *.o | perl -pe 's/\\\n//'`; @l = map { if (/(\S+):\s+(.*)/) { my ($module, @deps) = map { m!.*/(.*)\.k?o(\.gz)$! && $1 } $1, split(' ', $2); if (member($module, 'plip', 'ppa', 'imm')) { @deps = map { $_ eq 'parport' ? 'parport_pc' : $_ } @deps; } elsif ($module eq 'vfat') { push @deps, 'nls_cp437', 'nls_iso8859-1'; } if_(@deps, join(' ', "$module:", @deps)); } else { (); } } @l; output("all.kernels/$kern_ver/modules.dep", map { "$_\n" } @l); } sub make_modules_description { my ($kern_ver) = @_; my $ext = module_extension($kern_ver); my $dir = "all.kernels/$kern_ver/modules"; my @l;


context:
space:
mode: