adb058b0d
"Steven J. Hill"
2002-10-08
Subject
Fixed the script. It always put output to 'stdout' and never to the 'modules.dep' file.
Binary
No binary (build failed)
Architecture & Compiler Flags
—
Build Log
(log yok)
Commit Diff GitHub →
examples/depmod.pl+28 -18
| @@ -3,6 +3,7 @@ | |
| # Copyright (c) 2001 David Schleef <[email protected]> | |
| # Copyright (c) 2001 Erik Andersen <[email protected]> | |
| # Copyright (c) 2001 Stuart Hughes <[email protected]> | |
| + | # Copyright (c) 2002 Steven J. Hill <[email protected]> |
| # This program is free software; you can redistribute it and/or modify it | |
| # under the same terms as Perl itself. | |
| @@ -18,7 +19,7 @@ use File::Find; | |
| my $basedir=""; | |
| my $kernel; | |
| my $kernelsyms; | |
| - | my $stdout=1; |
| + | my $stdout=0; |
| my $verbose=0; | |
| @@ -38,13 +39,13 @@ GetOptions( | |
| if (defined $opt{help}) { | |
| - | "$0 [OPTION]... [basedir]\n", |
| - | "\t-h --help\t\tShow this help screen\n", |
| - | "\t-b --basedir\t\tModules base directory (defaults to /lib/modules)\n", |
| - | "\t-k --kernel\t\tKernel binary for the target\n", |
| - | "\t-F --kernelsyms\t\tKernel symbol file\n", |
| - | "\t-n --stdout\t\tWrite to stdout instead of modules.dep\n", |
| - | "\t-v --verbose\t\tPrint out lots of debugging stuff\n", |
| + | " $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; | |
| } | |
| @@ -55,6 +56,7 @@ if($basedir !~ m-/lib/modules-) { | |
| # Find the list of .o files living under $basedir | |
| #if ($verbose) { printf "Locating all modules\n"; } | |
| + | my($ofile) = ""; |
| my($file) = ""; | |
| my(@liblist) = (); | |
| find sub { | |
| @@ -127,16 +129,24 @@ foreach $module (keys %$dep) { | |
| } | |
| # resolve the dependancies for each module | |
| - | foreach $module ( keys %$mod ) { |
| - | print "$module:\t"; |
| - | @sorted = sort bydep keys %{$mod->{$module}}; |
| - | print join(" \\\n\t",@sorted); |
| - | # foreach $m (@sorted ) { |
| - | # print "\t$m\n"; |
| - | # } |
| - | print "\n\n"; |
| + | 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"; |
| + | } |
| } | |
| + | |
| sub bydep | |
| { | |
| foreach my $f ( keys %{$mod->{$b}} ) { | |
| @@ -158,7 +168,7 @@ depmod.pl - a cross platform script to generate kernel module dependency | |
| =head1 SYNOPSIS | |
| - | depmod.pl [OPTION]... [FILE]... |
| + | depmod.pl [OPTION]... [basedir]... |
| Example: | |
| @@ -223,5 +233,5 @@ David Schleef <[email protected]> | |
| =cut | |
| - | # $Id: depmod.pl,v 1.1 2001/07/30 19:32:03 andersen Exp $ |
| + | # $Id: depmod.pl,v 1.2 2002/10/08 21:33:51 sjhill Exp $ |