Return to diffsize.pl CVS log

Up to [Qemu by Fabrice Bellard] / qemu / roms / ipxe / src / util

Annotation of qemu/roms/ipxe/src/util/diffsize.pl, revision 1.1.1.1

1.1       root        1: #!/usr/bin/perl -w
                      2: # usage:
                      3: # [somebody@somewhere ~/ipxe/src]$ ./util/diffsize.pl [<old rev> [<new rev>]]
                      4: # by default <old rev> is HEAD and <new rev> is the working tree
                      5: 
                      6: use strict;
                      7: 
                      8: -d "bin" or die "Please run me in the iPXE src directory\n";
                      9: mkdir ".sizes";
                     10: 
                     11: my($oldrev, $newrev);
                     12: my($oldname, $newname);
                     13: 
                     14: if (@ARGV) {
                     15:   $oldname = shift;
                     16: } else {
                     17:   $oldname = "HEAD";
                     18: }
                     19: 
                     20: if (@ARGV) {
                     21:   $newname = shift;
                     22: } else {
                     23:   $newrev = "tree" . time();
                     24: }
                     25: 
                     26: $oldrev = `git rev-parse $oldname`;
                     27: chomp $oldrev;
                     28: 
                     29: unless (defined $newrev) {
                     30:   $newrev = `git rev-parse $newname`;
                     31:   chomp $newrev;
                     32: }
                     33: 
                     34: sub calc_sizes($$) {
                     35:   my($name, $rev) = @_;
                     36:   my $output;
                     37:   my $lastrev;
                     38:   my $stashed = 0;
                     39:   my $res = 0;
                     40: 
                     41:   return if -e ".sizes/$rev.sizes";
                     42: 
                     43:   if (defined $name) {
                     44:     $output = `git stash`;
                     45:     $stashed = 1 unless $output =~ /No local changes to save/;
                     46:     $lastrev = `git name-rev --name-only HEAD`;
                     47:     system("git checkout $name >/dev/null"); $res ||= $?;
                     48:   }
                     49: 
                     50:   system("make -j4 bin/ipxe.lkrn >/dev/null"); $res ||= $?;
                     51:   system("make bin/ipxe.lkrn.sizes > .sizes/$rev.sizes"); $res ||= $?;
                     52: 
                     53:   if (defined $name) {
                     54:     system("git checkout $lastrev >/dev/null"); $res ||= $?;
                     55:     system("git stash pop >/dev/null") if $stashed; $res ||= $?;
                     56:   }
                     57: 
                     58:   if ($res) {
                     59:     unlink(".sizes/$rev.sizes");
                     60:     die "Error making sizes file\n";
                     61:   }
                     62: }
                     63: 
                     64: our %Sizes;
                     65: 
                     66: sub save_sizes($$) {
                     67:   my($id, $rev) = @_;
                     68:   my $file = ".sizes/$rev.sizes";
                     69: 
                     70:   open SIZES, $file or die "opening $file: $!\n";
                     71:   while (<SIZES>) {
                     72:     my($text, $data, $bss, $total, $hex, $name) = split;
                     73:     $name =~ s|bin/||; $name =~ s|\.o$||;
                     74: 
                     75:     # Skip the header and totals lines
                     76:     next if $total =~ /[a-z]/ or $name =~ /TOTALS/;
                     77: 
                     78:     # Skip files named with dash, due to old Makefile bug
                     79:     next if $name =~ /-/;
                     80: 
                     81:     $Sizes{$name} = {old => 0, new => 0} unless exists $Sizes{$name};
                     82:     $Sizes{$name}{$id} = $total;
                     83:   }
                     84: }
                     85: 
                     86: calc_sizes($oldname, $oldrev);
                     87: calc_sizes($newname, $newrev);
                     88: 
                     89: save_sizes('old', $oldrev);
                     90: save_sizes('new', $newrev);
                     91: 
                     92: my $total = 0;
                     93: 
                     94: for (sort keys %Sizes) {
                     95:   my $diff = $Sizes{$_}{new} - $Sizes{$_}{old};
                     96:   if (abs($diff) >= 16) {
                     97:     printf "%12s %+d\n", substr($_, 0, 12), $Sizes{$_}{new} - $Sizes{$_}{old};
                     98:   }
                     99:   $total += $diff;
                    100: }
                    101: printf "      TOTAL: %+d\n", $total;

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.