Changeset 183


Ignore:
Timestamp:
12/25/06 14:58:42 (8 years ago)
Author:
root
Message:

Depending on more that one module now works.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • floppyfw/scripts/modpick.pl

    r120 r183  
    9898my ($allmodules, $p) = &readModulesDep(); 
    9999 
    100 # print Dumper($allmodules); 
     100# print STDERR Dumper($allmodules); 
    101101 
    102102my (@deplist); 
     
    106106foreach my $module ( quotewords('\s+', 0, $modules) ) { 
    107107 
    108 # print "this: ($module)\n"; 
     108# print STDERR "this: ($module)\n"; 
    109109 
    110110        # Ok, first we have to check for options. 
     
    153153        } 
    154154 
    155 # print "getDependFiles($module)\n"; 
     155# print STDERR "getDependFiles($module)\n"; 
    156156 
    157157        push @deplist,  getDependFiles($module); 
     
    164164 
    165165        foreach my $module (@deplist) { 
    166 # print "copyto($module)\n"; 
     166# print STDERR "copyto($module)\n"; 
    167167                # Quick and dirty: 
    168168                my ($dn) = dirname($module); 
     
    170170                my ($nd) = "$copyto/lib/modules/$kernelversion/kernel/$dn"; 
    171171 
    172 # print "$nd\n"; 
     172# print STDERR "$nd\n"; 
    173173 
    174174                system('mkdir', '-p', $nd); 
     
    205205} 
    206206 
    207 # print "PATHS:\n\n"; 
     207# print STDERR "PATHS:\n\n"; 
    208208# &printPaths($m, $p); 
    209209 
     
    212212        my (@retarr); 
    213213 
    214 # print "Testing $mod\n"; 
     214# print STDERR "Testing $mod\n"; 
    215215 
    216216        # First, check if there are (more) dependencies: 
     
    218218        if (exists($allmodules->{$mod}->{depends})) { 
    219219                foreach my $mo (@{$allmodules->{$mod}->{depends}}) { 
    220 # print "Checking $mo\n"; 
     220# print STDERR "Checking $mo\n"; 
    221221                        push @retarr, getDependFiles($mo); 
    222222                } 
     
    244244 
    245245                my ($line) = /\w+\/kernel\/(.*)/; 
     246 
     247# print STDERR "\n\n" . $line . "\n"; 
    246248 
    247249                if ($line =~ /\:/) { 
     
    289291 
    290292                        } 
    291 # print $module . ";" . $lastp . ";" . $lastp1 . ";" . $lastp2 . ";" . "$lastp3;\n"; 
     293# print STDERR $module . ";" . $lastp . ";" . $lastp1 . ";" . $lastp2 . ";" . "$lastp3;\n"; 
    292294 
    293295                        if ($dep) { 
    294                                 my ($dmodule) = $1 if ($dep =~ /\/(\w+-?\w+\.o)/); 
    295 # print "DEPM: $module-$dmodule\n"; 
    296                                 push @{$modules->{$module}->{'depends'}}, $dmodule; 
    297                                 $last_module = $module; 
     296# print STDERR "DEP: $dep\n"; 
     297                                foreach my $single (split(/\s+/, $dep)) { 
     298                                        my ($dmodule) = $1 if ($single =~ /\/(\w+-?\w+\.o)/); 
     299                                        next unless $dmodule; 
     300# print STDERR "DEPM: $module-$dmodule-$single\n"; 
     301                                        push @{$modules->{$module}->{'depends'}}, $dmodule; 
     302                                        $last_module = $module; 
     303                                } 
    298304 
    299305                        } 
     
    305311                if ($last_module && $line =~ /^\t/) { 
    306312                        my ($dmodule) = $1 if ( $_ =~ /(.*\.o)/ ); 
    307 # print "DEPM2: $dmodule\n"; 
     313# print STDERR "DEPM2: $dmodule\n"; 
    308314 
    309315                        push @{$modules->{$last_module}->{'depends'}}, $dmodule; 
Note: See TracChangeset for help on using the changeset viewer.