Patch from Stuart Hughes upgrading depmod.pl
This commit is contained in:
Rob Landley
parent
8dd4ca787a
commit
d049812571
@ -2,120 +2,125 @@
|
||||
# vi: set ts=4:
|
||||
# Copyright (c) 2001 David Schleef <ds@schleef.org>
|
||||
# Copyright (c) 2001 Erik Andersen <andersen@codepoet.org>
|
||||
# Copyright (c) 2001 Stuart Hughes <stuarth@lineo.com>
|
||||
# Copyright (c) 2001 Stuart Hughes <seh@zee2.com>
|
||||
# Copyright (c) 2002 Steven J. Hill <shill@broadcom.com>
|
||||
# Copyright (c) 2006 Freescale Semiconductor, Inc <stuarth@freescale.com>
|
||||
#
|
||||
# History:
|
||||
# March 2006: Stuart Hughes <stuarth@freescale.com>.
|
||||
# Significant updates, including implementing the '-F' option
|
||||
# and adding support for 2.6 kernels.
|
||||
|
||||
# This program is free software; you can redistribute it and/or modify it
|
||||
# under the same terms as Perl itself.
|
||||
|
||||
# TODO -- use strict mode...
|
||||
#use strict;
|
||||
|
||||
use Getopt::Long;
|
||||
use File::Find;
|
||||
|
||||
use strict;
|
||||
|
||||
# Set up some default values
|
||||
|
||||
my $kdir="";
|
||||
my $basedir="";
|
||||
my $kernel;
|
||||
my $kernelsyms;
|
||||
my $kernel="";
|
||||
my $kernelsyms="";
|
||||
my $stdout=0;
|
||||
my $verbose=0;
|
||||
my $help=0;
|
||||
|
||||
# more globals
|
||||
my (@liblist) = ();
|
||||
my $exp = {};
|
||||
my $dep = {};
|
||||
my $mod = {};
|
||||
|
||||
my $usage = <<TXT;
|
||||
$0 -b basedir { -k <vmlinux> | -F <System.map> } [options]...
|
||||
Where:
|
||||
-h --help : Show this help screen
|
||||
-b --basedir : Modules base directory (e.g /lib/modules/<2.x.y>)
|
||||
-k --kernel : Kernel binary for the target (e.g. vmlinux)
|
||||
-F --kernelsyms : Kernel symbol file (e.g. System.map)
|
||||
-n --stdout : Write to stdout instead of <basedir>/modules.dep
|
||||
-v --verbose : Print out lots of debugging stuff
|
||||
TXT
|
||||
|
||||
# get command-line options
|
||||
|
||||
my %opt;
|
||||
|
||||
GetOptions(
|
||||
\%opt,
|
||||
"help|h",
|
||||
"basedir|b=s" => \$basedir,
|
||||
"kernel|k=s" => \$kernel,
|
||||
"help|h" => \$help,
|
||||
"basedir|b=s" => \$basedir,
|
||||
"kernel|k=s" => \$kernel,
|
||||
"kernelsyms|F=s" => \$kernelsyms,
|
||||
"stdout|n" => \$stdout,
|
||||
"verbose|v" => \$verbose,
|
||||
"stdout|n" => \$stdout,
|
||||
"verbose|v" => \$verbose,
|
||||
);
|
||||
|
||||
if (defined $opt{help}) {
|
||||
print
|
||||
" $0 [OPTION]... [basedir]\n",
|
||||
" -h --help\t\tShow this help screen\n",
|
||||
" -b --basedir\tModules base directory (defaults to /lib/modules)\n",
|
||||
" -k --kernel\tKernel binary for the target\n",
|
||||
" -F --kernelsyms\tKernel symbol file\n",
|
||||
" -n --stdout\tWrite to stdout instead of <basedir>/modules.dep\n",
|
||||
" -v --verbose\tPrint out lots of debugging stuff\n",
|
||||
;
|
||||
exit 1;
|
||||
}
|
||||
die $usage if $help;
|
||||
die $usage unless $basedir && ( $kernel || $kernelsyms );
|
||||
die "can't use both -k and -F\n\n$usage" if $kernel && $kernelsyms;
|
||||
|
||||
# Strip any trailing or multiple slashes from basedir
|
||||
$basedir =~ s-(/)\1+-/-g;
|
||||
|
||||
# The base directory should contain /lib/modules somewhere
|
||||
if($basedir !~ m-/lib/modules-) {
|
||||
warn "WARNING: base directory does not match ..../lib/modules\n";
|
||||
}
|
||||
|
||||
# Find the list of .o files living under $basedir
|
||||
#if ($verbose) { printf "Locating all modules\n"; }
|
||||
my($ofile) = "";
|
||||
my($file) = "";
|
||||
my(@liblist) = ();
|
||||
# if no kernel version is contained in the basedir, try to find one
|
||||
if($basedir !~ m-/lib/modules/\d\.\d-) {
|
||||
opendir(BD, $basedir) or die "can't open basedir $basedir : $!\n";
|
||||
foreach ( readdir(BD) ) {
|
||||
next if /^\.\.?$/;
|
||||
next unless -d "$basedir/$_";
|
||||
warn "dir = $_\n" if $verbose;
|
||||
if( /^\d\.\d/ ) {
|
||||
$kdir = $_;
|
||||
warn("Guessed module directory as $basedir/$kdir\n");
|
||||
last;
|
||||
}
|
||||
}
|
||||
closedir(BD);
|
||||
die "Cannot find a kernel version under $basedir\n" unless $kdir;
|
||||
$basedir = "$basedir/$kdir";
|
||||
}
|
||||
|
||||
# Find the list of .o or .ko files living under $basedir
|
||||
warn "**** Locating all modules\n" if $verbose;
|
||||
find sub {
|
||||
my $file;
|
||||
if ( -f $_ && ! -d $_ ) {
|
||||
$file = $File::Find::name;
|
||||
if ( $file =~ /.o$/ ) {
|
||||
if ( $file =~ /\.k?o$/ ) {
|
||||
push(@liblist, $file);
|
||||
if ($verbose) { printf "$file\n"; }
|
||||
warn "$file\n" if $verbose;
|
||||
}
|
||||
}
|
||||
}, $basedir;
|
||||
if ($verbose) { printf "Finished locating modules\n"; }
|
||||
warn "**** Finished locating modules\n" if $verbose;
|
||||
|
||||
foreach $obj ( @liblist, $kernel ){
|
||||
foreach my $obj ( @liblist ){
|
||||
# turn the input file name into a target tag name
|
||||
# vmlinux is a special that is only used to resolve symbols
|
||||
if($obj =~ /vmlinux/) {
|
||||
$tgtname = "vmlinux";
|
||||
} else {
|
||||
($tgtname) = $obj =~ m-(/lib/modules/.*)$-;
|
||||
}
|
||||
my ($tgtname) = $obj =~ m-(/lib/modules/.*)$-;
|
||||
|
||||
warn "MODULE = $tgtname\n" if $verbose;
|
||||
warn "\nMODULE = $tgtname\n" if $verbose;
|
||||
|
||||
# get a list of symbols
|
||||
@output=`nm $obj`;
|
||||
$ksymtab=grep m/ __ksymtab/, @output;
|
||||
my @output=`nm $obj`;
|
||||
|
||||
# gather the exported symbols
|
||||
if($ksymtab){
|
||||
# explicitly exported
|
||||
foreach ( @output ) {
|
||||
/ __ksymtab_(.*)$/ and do {
|
||||
warn "sym = $1\n" if $verbose;
|
||||
$exp->{$1} = $tgtname;
|
||||
};
|
||||
}
|
||||
} else {
|
||||
# exporting all symbols
|
||||
foreach ( @output) {
|
||||
/ [ABCDGRST] (.*)$/ and do {
|
||||
warn "syma = $1\n" if $verbose;
|
||||
$exp->{$1} = $tgtname;
|
||||
};
|
||||
}
|
||||
}
|
||||
# gather the unresolved symbols
|
||||
foreach ( @output ) {
|
||||
!/ __this_module/ && / U (.*)$/ and do {
|
||||
warn "und = $1\n" if $verbose;
|
||||
push @{$dep->{$tgtname}}, $1;
|
||||
};
|
||||
}
|
||||
build_ref_tables($tgtname, \@output, $exp, $dep);
|
||||
}
|
||||
|
||||
|
||||
# reduce dependancies: remove unresolvable and resolved from vmlinux
|
||||
# vmlinux is a special name that is only used to resolve symbols
|
||||
my $tgtname = 'vmlinux';
|
||||
my @output = $kernelsyms ? `cat $kernelsyms` : `nm $kernel`;
|
||||
warn "\nMODULE = $tgtname\n" if $verbose;
|
||||
build_ref_tables($tgtname, \@output, $exp, $dep);
|
||||
|
||||
# resolve the dependancies for each module
|
||||
# reduce dependancies: remove unresolvable and resolved from vmlinux/System.map
|
||||
# remove duplicates
|
||||
foreach $module (keys %$dep) {
|
||||
foreach my $module (keys %$dep) {
|
||||
warn "reducing module: $module\n" if $verbose;
|
||||
$mod->{$module} = {};
|
||||
foreach (@{$dep->{$module}}) {
|
||||
if( $exp->{$_} ) {
|
||||
@ -128,25 +133,65 @@ foreach $module (keys %$dep) {
|
||||
}
|
||||
}
|
||||
|
||||
# resolve the dependancies for each module
|
||||
if ($stdout == 1) {
|
||||
foreach $module ( keys %$mod ) {
|
||||
print "$module:\t";
|
||||
@sorted = sort bydep keys %{$mod->{$module}};
|
||||
print join(" \\\n\t",@sorted);
|
||||
print "\n\n";
|
||||
}
|
||||
} else {
|
||||
open(OFILE, ">$basedir/modules.dep");
|
||||
foreach $module ( keys %$mod ) {
|
||||
print OFILE "$module:\t";
|
||||
@sorted = sort bydep keys %{$mod->{$module}};
|
||||
print OFILE join(" \\\n\t",@sorted);
|
||||
print OFILE "\n\n";
|
||||
}
|
||||
# figure out where the output should go
|
||||
if ($stdout == 0) {
|
||||
open(STDOUT, ">$basedir/modules.dep")
|
||||
or die "cannot open $basedir/modules.dep: $!";
|
||||
}
|
||||
my $kseries = $basedir =~ m,/2\.6\.[^/]*, ? '2.6' : '2.4';
|
||||
|
||||
foreach my $module ( keys %$mod ) {
|
||||
if($kseries eq '2.4') {
|
||||
print "$module:\t";
|
||||
my @sorted = sort bydep keys %{$mod->{$module}};
|
||||
print join(" \\\n\t",@sorted);
|
||||
print "\n\n";
|
||||
} else {
|
||||
print "$module: ";
|
||||
my @sorted = sort bydep keys %{$mod->{$module}};
|
||||
print join(" ",@sorted);
|
||||
print "\n";
|
||||
}
|
||||
}
|
||||
|
||||
|
||||
sub build_ref_tables
|
||||
{
|
||||
my ($name, $sym_ar, $exp, $dep) = @_;
|
||||
|
||||
my $ksymtab = grep m/ __ksymtab/, @$sym_ar;
|
||||
|
||||
# gather the exported symbols
|
||||
if($ksymtab){
|
||||
# explicitly exported
|
||||
foreach ( @$sym_ar ) {
|
||||
/ __ksymtab_(.*)$/ and do {
|
||||
warn "sym = $1\n" if $verbose;
|
||||
$exp->{$1} = $name;
|
||||
};
|
||||
}
|
||||
} else {
|
||||
# exporting all symbols
|
||||
foreach ( @$sym_ar ) {
|
||||
/ [ABCDGRST] (.*)$/ and do {
|
||||
warn "syma = $1\n" if $verbose;
|
||||
$exp->{$1} = $name;
|
||||
};
|
||||
}
|
||||
}
|
||||
|
||||
# this takes makes sure modules with no dependencies get listed
|
||||
push @{$dep->{$name}}, 'printk' unless $name eq 'vmlinux';
|
||||
|
||||
# gather the unresolved symbols
|
||||
foreach ( @$sym_ar ) {
|
||||
!/ __this_module/ && / U (.*)$/ and do {
|
||||
warn "und = $1\n" if $verbose;
|
||||
push @{$dep->{$name}}, $1;
|
||||
};
|
||||
}
|
||||
}
|
||||
|
||||
sub bydep
|
||||
{
|
||||
foreach my $f ( keys %{$mod->{$b}} ) {
|
||||
@ -163,8 +208,11 @@ __END__
|
||||
|
||||
=head1 NAME
|
||||
|
||||
depmod.pl - a cross platform script to generate kernel module dependency
|
||||
lists which can then be used by modprobe.
|
||||
depmod.pl - a cross platform script to generate kernel module
|
||||
dependency lists (modules.conf) which can then be used by modprobe
|
||||
on the target platform.
|
||||
|
||||
It supports Linux 2.4 and 2.6 styles of modules.conf (auto-detected)
|
||||
|
||||
=head1 SYNOPSIS
|
||||
|
||||
@ -172,7 +220,7 @@ depmod.pl [OPTION]... [basedir]...
|
||||
|
||||
Example:
|
||||
|
||||
depmod.pl -F linux/System.map target/lib/modules
|
||||
depmod.pl -F linux/System.map -b target/lib/modules/2.6.11
|
||||
|
||||
=head1 DESCRIPTION
|
||||
|
||||
@ -196,34 +244,40 @@ This displays the help message.
|
||||
=item B<-b --basedir>
|
||||
|
||||
The base directory uner which the target's modules will be found. This
|
||||
defaults to the /lib/modules directory.
|
||||
defaults to the /lib/modules directory.
|
||||
|
||||
If you don't specify the kernel version, this script will search for
|
||||
one under the specified based directory and use the first thing that
|
||||
looks like a kernel version.
|
||||
|
||||
=item B<-k --kernel>
|
||||
|
||||
Kernel binary for the target. You must either supply a kernel binary
|
||||
Kernel binary for the target (vmlinux). You must either supply a kernel binary
|
||||
or a kernel symbol file (using the -F option).
|
||||
|
||||
=item B<-F --kernelsyms>
|
||||
|
||||
Kernel symbol file for the target. You must supply either a kernel symbol file
|
||||
kernel binary for the target (using the -k option).
|
||||
Kernel symbol file for the target (System.map).
|
||||
|
||||
=item B<-n --stdout>
|
||||
|
||||
Write to stdout instead of modules.dep. This is currently hard coded...
|
||||
Write to stdout instead of modules.dep
|
||||
kernel binary for the target (using the -k option).
|
||||
|
||||
=item B<--verbose>
|
||||
|
||||
Be verbose (not implemented)
|
||||
Verbose (debug) output
|
||||
|
||||
=back
|
||||
|
||||
=head1 COPYRIGHT
|
||||
=head1 COPYRIGHT AND LICENSE
|
||||
|
||||
Copyright (c) 2001 David Schleef <ds@schleef.org>
|
||||
Copyright (c) 2001 Erik Andersen <andersen@codepoet.org>
|
||||
Copyright (c) 2001 Stuart Hughes <seh@zee2.com>
|
||||
Copyright (c) 2002 Steven J. Hill <shill@broadcom.com>
|
||||
Copyright (c) 2006 Freescale Semiconductor, Inc <stuarth@freescale.com>
|
||||
|
||||
Copyright (c) 2001 David Schleef <ds@schleef.org>
|
||||
Copyright (c) 2001 Erik Andersen <andersen@codepoet.org>
|
||||
Copyright (c) 2001 Stuart Hughes <stuarth@lineo.com>
|
||||
This program is free software; you can redistribute it and/or modify it
|
||||
under the same terms as Perl itself.
|
||||
|
||||
|
||||
Loading…
Reference in New Issue
Block a user