diff options
author | Jim Cromie <jim.cromie@gmail.com> | 2011-05-23 14:44:56 -0400 |
---|---|---|
committer | Michal Marek <mmarek@suse.cz> | 2011-05-24 10:07:07 -0400 |
commit | bdabc7a345db97b3839c2c3deef40023cf8017ef (patch) | |
tree | dd4c1b460d9757ff611dce5548761aed62a7714d | |
parent | de7b0b4110795be914e6cafdfec4276b2618cc78 (diff) |
export_report: sort SECTION 2 output
Sort SECTION 2 modules by name. Within those module listings, sort
the symbol providers by name, and remove the count, as it is
misleading; its the kernel-wide count of uses of that symbol, not the
count pertaining to the module being outlined. (this can be seen by
grepping the output for a single symbol). The count is still used to
sort the symbols.
Signed-off-by: Jim Cromie <jim.cromie@gmail.com>
Signed-off-by: Michal Marek <mmarek@suse.cz>
-rw-r--r-- | scripts/export_report.pl | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/scripts/export_report.pl b/scripts/export_report.pl index f97899c87923..48398a19fbbc 100644 --- a/scripts/export_report.pl +++ b/scripts/export_report.pl | |||
@@ -25,11 +25,12 @@ sub alphabetically { | |||
25 | sub print_depends_on { | 25 | sub print_depends_on { |
26 | my ($href) = @_; | 26 | my ($href) = @_; |
27 | print "\n"; | 27 | print "\n"; |
28 | while (my ($mod, $list) = each %$href) { | 28 | for my $mod (sort keys %$href) { |
29 | my $list = $href->{$mod}; | ||
29 | print "\t$mod:\n"; | 30 | print "\t$mod:\n"; |
30 | foreach my $sym (sort numerically @{$list}) { | 31 | foreach my $sym (sort numerically @{$list}) { |
31 | my ($symbol, $no) = split /\s+/, $sym; | 32 | my ($symbol, $no) = split /\s+/, $sym; |
32 | printf("\t\t%-25s\t%-25d\n", $symbol, $no); | 33 | printf("\t\t%-25s\n", $symbol); |
33 | } | 34 | } |
34 | print "\n"; | 35 | print "\n"; |
35 | } | 36 | } |
@@ -166,7 +167,8 @@ modules. Each module lists the modules, and the symbols from that module that | |||
166 | it uses. Each listed symbol reports the number of modules using it\n"); | 167 | it uses. Each listed symbol reports the number of modules using it\n"); |
167 | 168 | ||
168 | print "~"x80 , "\n"; | 169 | print "~"x80 , "\n"; |
169 | while (my ($thismod, $list) = each %MODULE) { | 170 | for my $thismod (sort keys %MODULE) { |
171 | my $list = $MODULE{$thismod}; | ||
170 | my %depends; | 172 | my %depends; |
171 | $thismod =~ s/\.mod\.c/.ko/; | 173 | $thismod =~ s/\.mod\.c/.ko/; |
172 | print "\t\t\t$thismod\n"; | 174 | print "\t\t\t$thismod\n"; |