add support for --symbol-prefix/-P

This commit is contained in:
Mike Frysinger 2007-07-13 04:37:12 +00:00
parent c540e75d74
commit d611cccd81

View File

@ -22,6 +22,7 @@ my $kdir="";
my $basedir=""; my $basedir="";
my $kernel=""; my $kernel="";
my $kernelsyms=""; my $kernelsyms="";
my $symprefix="";
my $stdout=0; my $stdout=0;
my $verbose=0; my $verbose=0;
my $help=0; my $help=0;
@ -36,22 +37,24 @@ my $mod = {};
my $usage = <<TXT; my $usage = <<TXT;
$0 -b basedir { -k <vmlinux> | -F <System.map> } [options]... $0 -b basedir { -k <vmlinux> | -F <System.map> } [options]...
Where: Where:
-h --help : Show this help screen -h --help : Show this help screen
-b --basedir : Modules base directory (e.g /lib/modules/<2.x.y>) -b --basedir : Modules base directory (e.g /lib/modules/<2.x.y>)
-k --kernel : Kernel binary for the target (e.g. vmlinux) -k --kernel : Kernel binary for the target (e.g. vmlinux)
-F --kernelsyms : Kernel symbol file (e.g. System.map) -F --kernelsyms : Kernel symbol file (e.g. System.map)
-n --stdout : Write to stdout instead of <basedir>/modules.dep -n --stdout : Write to stdout instead of <basedir>/modules.dep
-v --verbose : Print out lots of debugging stuff -v --verbose : Print out lots of debugging stuff
-P --symbol-prefix : Symbol prefix
TXT TXT
# get command-line options # get command-line options
GetOptions( GetOptions(
"help|h" => \$help, "help|h" => \$help,
"basedir|b=s" => \$basedir, "basedir|b=s" => \$basedir,
"kernel|k=s" => \$kernel, "kernel|k=s" => \$kernel,
"kernelsyms|F=s" => \$kernelsyms, "kernelsyms|F=s" => \$kernelsyms,
"stdout|n" => \$stdout, "stdout|n" => \$stdout,
"verbose|v" => \$verbose, "verbose|v" => \$verbose,
"symbol-prefix|P=s" => \$symprefix,
); );
die $usage if $help; die $usage if $help;
@ -182,7 +185,7 @@ sub build_ref_tables
} }
# this takes makes sure modules with no dependencies get listed # this takes makes sure modules with no dependencies get listed
push @{$dep->{$name}}, 'printk' unless $name eq 'vmlinux'; push @{$dep->{$name}}, $symprefix . 'printk' unless $name eq 'vmlinux';
# gather the unresolved symbols # gather the unresolved symbols
foreach ( @$sym_ar ) { foreach ( @$sym_ar ) {