/[magellan-source]/trunk/mkinitrd-magellan/busybox/examples/depmod.pl

Diff of /trunk/mkinitrd-magellan/busybox/examples/depmod.pl

Parent Directory | Revision Log | View Patch Patch

-revision 983 by niro,
Fri Apr 24 18:33:46 2009 UTC
+revision 984 by niro,
Sun May 30 11:32:42 2010 UTC
 Line 13
  # 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;
 Line 23 
 my $basedir="";
  my $kernel="";
  my $kernelsyms="";
  my $symprefix="";
+ my $all=0;
+ my $quick=0;
+ my $errsyms=0;
  my $stdout=0;
  my $verbose=0;
  my $help=0;
-Line 44 
 $0 -b basedir { -k <vmlinux> | -F <Syste
+Line 47 
 $0 -b basedir { -k <vmlinux> | -F <Syste
     -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
-Line 55 
 GetOptions(
+Line 60 
 GetOptions(
  	"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-) {
-Line 137 
 foreach my $module (keys %$dep) {
+Line 151 
 foreach my $module (keys %$dep) {
      }
  }
+ # 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;
+ 	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: $!";
  }
-Line 151 
 foreach my $module ( keys %$mod ) {
+Line 205 
 foreach my $module ( keys %$mod ) {
  	    print join(" \\\n\t",@sorted);
  	    print "\n\n";
      } else {
- 	    print "$module: ";
+ 	    my $shortmod = $module;
- 	    my @sorted = sort bydep keys %{$mod->{$module}};
+ 	    $shortmod =~ s:^/lib/modules/[^/]*/::;
+ 	    print "$shortmod:";
+ 	    my @sorted = @{$mod2->{$module}};
+ 	    printf " " if @sorted;
  	    print join(" ",@sorted);
  	    print "\n";
      }
-Line 163 
 sub build_ref_tables
+Line 220 
 sub build_ref_tables
  {
      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 {
+             / ${symprefix}__ksymtab_(.*)$/ and do {
-                 warn "sym = $1\n" if $verbose;
+                 my $sym = ${symprefix} . $1;
-                 $exp->{$1} = $name;
+                 warn "sym = $sym\n" if $verbose;
+                 $exp->{$sym} = $name;
              };
          }
  	} else {
-Line 189 
 sub build_ref_tables
+Line 247 
 sub build_ref_tables
      # 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;
          };

 Legend:



Removed from v.983
 


changed lines


 
Added in v.984
 Legend:



Removed from v.983
 


changed lines


 
Added in v.984
-Removed from v.983
+Added in v.984