blob: fe9e95259faee2ad9f1101cad2c9db1ff96820e0 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
|
#!/usr/bin/perl
#
# sizehistory
# Copyright (C) 2006 Jonathan Zarate
#
if (($#ARGV < 0) || ($#ARGV > 1)) {
print "Usage: sizehistory <filename> [datafile]\n";
exit 1;
}
$fname = $ARGV[0];
$dname = ($ARGV[1] || $fname) . ".size";
print "\nSize history for $fname\n\n";
@size = `mipsel-linux-size $fname`;
foreach (@size) {
if (($text, $data, $bss, $total) = $_ =~ /^\s*(\d+)\s+(\d+)\s+(\d+)\s+(\d+)\s+/) {
$line = "$text\t$data\t$bss\t$total\t" . scalar localtime((stat($fname))[10]);
print "text\tdata\tbss\ttotal\ttime\n";
if (open(F, "<$dname")) {
@hist = <F>;
close(F);
if ($#hist >= 0) {
if ($#hist > 20) {
splice(@hist, 0, $#hist - 19);
}
print @hist;
if ($hist[$#hist] =~ /^(\d+)\t(\d+)\t(\d+)\t(\d+)\t/) {
if (($1 == $text) && ($2 == $data) && ($3 == $bss)) {
print "--- same size as last ---\n$line <= current\n";
exit 0;
}
printf "%d\t%d\t%d\t%d\t--- changes since above ---\n", ($text - $1), ($data - $2), ($bss - $3), ($total - $4);
}
}
}
print $line, "\n";
if ((localtime((stat($dname))[9]))[7] != (localtime())[7]) {
open(F, ">>$dname") || die "$dname: $!";
print F $line, "\n";
close(F);
}
exit 0;
}
}
exit 1;
|
