Apple-2-SW/a2d
1
0
Fork 0
mirror of https://github.com/mi57730/a2d.git synced 2024-06-02 04:41:28 +00:00
Code Issues Projects Releases Wiki Activity

stats.pl: add 'scoped' command

Browse Source
This commit is contained in:
Joshua Bell 2018-04-10 17:44:31 -07:00
parent 21861e04fd
commit 7a78d356bb
1 changed files with 10 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
res/stats.pl
View File

@ -2,7 +2,9 @@
# stats.pl < source.s -- dump stats
# stats.pl unscoped < source.s -- list Lxxxx symbols not within 2 scopes
# stats.pl single < source.s -- list Lxxxx symbols with no references
# stats.pl scoped < source.s -- list Lxxxx symbols within 2 scopes
# stats.pl raw < source.s -- list $xxxx usage
# stats.pl unrefed < source.s -- list Lxxxx symbols with no references
use strict;
use warnings;
@ -11,6 +13,7 @@ my $command = shift(@ARGV) // "";
my %defs;
my %refs;
my %scoped;
my %unscoped;
my %raw;
my $depth = 0;
@ -29,6 +32,7 @@ while (<STDIN>) {
$_ = $2;
$defs{$def} = ($defs{$def} // 0) + 1;
$unscoped{$def} = 1 if $depth < 2;
$scoped{$def} = 1 if $depth >= 2;
}
foreach my $term (split /[ (),+\-*\/]/, $_) {
@ -50,12 +54,16 @@ foreach my $def (keys %defs) {
my $defs = scalar(keys %defs);
my $unscoped = scalar(keys %unscoped);
my $raws = scalar(keys %raw);
my $scoped = $defs - $unscoped;
my $scoped = scalar(keys %scoped);
if ($command eq "unscoped") {
foreach my $def (sort keys %unscoped) {
print "$def\n";
}
} elsif ($command eq "scoped") {
foreach my $def (sort keys %scoped) {
print "$def\n";
}
} elsif ($command eq "unrefed") {
foreach my $def (sort keys %defs) {
print "$def\n" unless defined $refs{$def};