# This program is free software; you can redistribute it and/or modify it
# under the same terms as Perl itself.
-use Getopt::Long;
+use Getopt::Long qw(:config no_auto_abbrev no_ignore_case);
use File::Find;
use strict;
my $kernel="";
my $kernelsyms="";
my $symprefix="";
+my $all=0;
+my $quick=0;
+my $errsyms=0;
my $stdout=0;
my $verbose=0;
my $help=0;
-n --stdout : Write to stdout instead of <basedir>/modules.dep
-v --verbose : Print out lots of debugging stuff
-P --symbol-prefix : Symbol prefix
+ -a --all : Probe all modules (default/only thing supported)
+ -e --errsyms : Report any symbols not supplied by modules/kernel
TXT
# get command-line options
"stdout|n" => \$stdout,
"verbose|v" => \$verbose,
"symbol-prefix|P=s" => \$symprefix,
+ "all|a" => \$all,
+ # unsupported options
+ "quick|A" => \$quick,
+ # ignored options (for historical usage)
+ "quiet|q",
+ "root|r",
+ "unresolved-error|u"
);
die $usage if $help;
die $usage unless $basedir && ( $kernel || $kernelsyms );
die "can't use both -k and -F\n\n$usage" if $kernel && $kernelsyms;
+die "sorry, -A/--quick is not supported" if $quick;
+die "--errsyms requires --kernelsyms" if $errsyms && !$kernelsyms;
# Strip any trailing or multiple slashes from basedir
-$basedir =~ s-(/)\1+-/-g;
+$basedir =~ s-/+$--g;
# The base directory should contain /lib/modules somewhere
if($basedir !~ m-/lib/modules-) {
}
}
+# build a complete dependency list for each module and make sure it
+# is kept in order proper order
+my $mod2 = {};
+sub maybe_unshift
+{
+ my ($array, $ele) = @_;
+ # chop off the leading path /lib/modules/<kver>/ as modprobe
+ # will handle relative paths just fine
+ $ele =~ s:^/lib/modules/[^/]*/::;
+ foreach (@{$array}) {
+ if ($_ eq $ele) {
+ return;
+ }
+ }
+ unshift (@{$array}, $ele);
+}
+sub add_mod_deps
+{
+ my ($depth, $mod, $mod2, $module, $this_module) = @_;
+
+ $depth .= " ";
+ warn "${depth}loading deps of module: $this_module\n" if $verbose;
+ if (length($depth) > 50) {
+ die "too much recursion (circular dependencies in modules?)";
+ }
+
+ foreach my $md (keys %{$mod->{$this_module}}) {
+ add_mod_deps ($depth, $mod, $mod2, $module, $md);
+ warn "${depth} outputting $md\n" if $verbose;
+ maybe_unshift (\@{$$mod2->{$module}}, $md);
+ }
+
+ if (!%{$mod->{$this_module}}) {
+ warn "${depth} no deps\n" if $verbose;
+ }
+}
+foreach my $module (keys %$mod) {
+ warn "filling out module: $module\n" if $verbose;
+ @{$mod2->{$module}} = ();
+ add_mod_deps ("", $mod, \$mod2, $module, $module);
+}
+
# figure out where the output should go
if ($stdout == 0) {
+ warn "writing $basedir/modules.dep\n" if $verbose;
open(STDOUT, ">$basedir/modules.dep")
or die "cannot open $basedir/modules.dep: $!";
}
-my $kseries = $basedir =~ m,/2\.6\.[^/]*, ? '2.6' : '2.4';
+my $kseries = $basedir =~ m,/2\.4\.[^/]*, ? '2.4' : 'others';
foreach my $module ( keys %$mod ) {
if($kseries eq '2.4') {
print join(" \\\n\t",@sorted);
print "\n\n";
} else {
- print "$module: ";
- my @sorted = sort bydep keys %{$mod->{$module}};
+ my $shortmod = $module;
+ $shortmod =~ s:^/lib/modules/[^/]*/::;
+ print "$shortmod:";
+ my @sorted = @{$mod2->{$module}};
+ printf " " if @sorted;
print join(" ",@sorted);
print "\n";
}
{
my ($name, $sym_ar, $exp, $dep) = @_;
- my $ksymtab = grep m/ __ksymtab/, @$sym_ar;
+ my $ksymtab = grep m/ ${symprefix}__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;
+ / ${symprefix}__ksymtab_(.*)$/ and do {
+ my $sym = ${symprefix} . $1;
+ warn "sym = $sym\n" if $verbose;
+ $exp->{$sym} = $name;
};
}
} else {
# gather the unresolved symbols
foreach ( @$sym_ar ) {
- !/ __this_module/ && / U (.*)$/ and do {
+ !/ ${symprefix}__this_module/ && / U (.*)$/ and do {
warn "und = $1\n" if $verbose;
push @{$dep->{$name}}, $1;
};