Celebratory change to calcrom.pl

This commit is contained in:
PikalaxALT
2020-03-03 16:29:57 -05:00
parent 9259b378ef
commit 32520c80e9
+33 -10
View File
@@ -125,19 +125,42 @@ my $docPct = sprintf("%.4f", 100 * $documented / $total_syms);
my $partialPct = sprintf("%.4f", 100 * $partial_documented / $total_syms); my $partialPct = sprintf("%.4f", 100 * $partial_documented / $total_syms);
my $undocPct = sprintf("%.4f", 100 * $undocumented / $total_syms); my $undocPct = sprintf("%.4f", 100 * $undocumented / $total_syms);
print "$total total bytes of code\n"; if ($asm == 0)
print "$src bytes of code in src ($srcPct%)\n"; {
print "$asm bytes of code in asm ($asmPct%)\n"; print "Code decompilation is 100% complete\n"
}
else
{
print "$total total bytes of code\n";
print "$src bytes of code in src ($srcPct%)\n";
print "$asm bytes of code in asm ($asmPct%)\n";
}
print "\n"; print "\n";
print "$total_syms total symbols\n";
print "$documented symbols documented ($docPct%)\n"; if ($partial_documented == 0 && $undocumented == 0)
print "$partial_documented symbols partially documented ($partialPct%)\n"; {
print "$undocumented symbols undocumented ($undocPct%)\n"; print "Documentation is 100% complete\n"
}
else
{
print "$total_syms total symbols\n";
print "$documented symbols documented ($docPct%)\n";
print "$partial_documented symbols partially documented ($partialPct%)\n";
print "$undocumented symbols undocumented ($undocPct%)\n";
}
print "\n"; print "\n";
my $dataTotal = $srcdata + $data; my $dataTotal = $srcdata + $data;
my $srcDataPct = sprintf("%.4f", 100 * $srcdata / $dataTotal); my $srcDataPct = sprintf("%.4f", 100 * $srcdata / $dataTotal);
my $dataPct = sprintf("%.4f", 100 * $data / $dataTotal); my $dataPct = sprintf("%.4f", 100 * $data / $dataTotal);
print "$dataTotal total bytes of data\n";
print "$srcdata bytes of data in src ($srcDataPct%)\n"; if ($data == 0)
print "$data bytes of data in data ($dataPct%)\n"; {
print "Data porting to C is 100% complete\n"
}
else
{
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";
}