dionmoustos/Pokemon-Firered
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Make calcrom data info optional

Browse Source
This commit is contained in:
GriffinR
2021-10-15 09:12:46 -04:00
parent 1f7eb7ea01
commit 434cc62b7c
1 changed files with 17 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files
.github/calcrom/calcrom.pl
+17 -10
View File
@@ -1,19 +1,22 @@
#!/usr/bin/perl #!/usr/bin/perl
# Usage: # Usage:
# calcrom.pl <mapfile> [--verbose] # calcrom.pl <mapfile> [--verbose][--data]
# #
# mapfile: path to .map file output by LD # mapfile: path to .map file output by LD
# verbose: set to get more detailed output # verbose: set to get more detailed output
# data: set to output % breakdown of data
use IPC::Cmd qw[ run ]; use IPC::Cmd qw[ run ];
use Getopt::Long; use Getopt::Long;
my $usage = "Usage: calcrom.pl file.map [--verbose][--data]\n";
my $verbose = ""; my $verbose = "";
my $showData;
GetOptions("verbose" => \$verbose); GetOptions("verbose" => \$verbose, "data" => \$showData) or die $usage;
(@ARGV == 1) (@ARGV == 1)
or die "ERROR: no map file specified.\n"; or die $usage;
open(my $file, $ARGV[0]) open(my $file, $ARGV[0])
or die "ERROR: could not open file '$ARGV[0]'.\n"; or die "ERROR: could not open file '$ARGV[0]'.\n";
@@ -178,11 +181,15 @@ else
print "$partial_documented symbols partially documented ($partialPct%)\n"; print "$partial_documented symbols partially documented ($partialPct%)\n";
print "$undocumented symbols undocumented ($undocPct%)\n"; print "$undocumented symbols undocumented ($undocPct%)\n";
} }
print "\n";
my $dataTotal = $srcdata + $data; if ($showData)
my $srcDataPct = sprintf("%.4f", 100 * $srcdata / $dataTotal); {
my $dataPct = sprintf("%.4f", 100 * $data / $dataTotal); print "\n";
print "$dataTotal total bytes of data\n";
print "$srcdata bytes of data in src ($srcDataPct%)\n"; my $dataTotal = $srcdata + $data;
print "$data bytes of data in data ($dataPct%)\n"; my $srcDataPct = sprintf("%.4f", 100 * $srcdata / $dataTotal);
my $dataPct = sprintf("%.4f", 100 * $data / $dataTotal);
print "$dataTotal total bytes of data\n";
print "$srcdata bytes of data in src ($srcDataPct%)\n";
print "$data bytes of data in data ($dataPct%)\n";
}