/usr/bin/tos-write-buildinfo is in tinyos-tools 1.4.2-3.
This file is owned by root:root, with mode 0o755.
The actual contents of the file can be viewed below.
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 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 | #!/usr/bin/perl -w
#
# This script generates an XML description of the buildinformation. This is
# primarily used by other tools such as checkers, tests and continuous
# integration.
#
#$Id: tos-write-buildinfo.in,v 1.6 2007-09-03 14:02:48 beutel Exp $
#@author Jan Beutel <j.beutel@ieee.org>
#
use strict;
my $MaxNameLength = 10;
if ( @ARGV == 0 ) {
print "usage: tos-write-buildinfo [ident_flags] [exe_file]\n";
exit 0;
}
my %ident_flags = ();
my $exe = "";
my $size = "avr-size";
my $platform = "";
for my $arg (@ARGV) {
if ($arg =~ /^-DIDENT_(.+)=0x(.+)$/) {
$ident_flags{lc($1)} = uc($2);
}
elsif ($arg =~ /^-DIDENT_(.+)="(.+)"$/) {
$ident_flags{lc($1)} = $2;
}
elsif ($arg =~ /^--exe=(.+)$/) {
$exe = $1;
}
elsif ($arg =~ /^--size=(.+)$/) {
$size = $1;
}
elsif ($arg =~ /^--platform=(.+)$/) {
$platform = $1;
}
}
my @text;
my $rc2 = qx"$size $exe |grep main ";
#print $rc2;
#print $size;
@text = split(' ', $rc2);
print "<metrics>\n";
print " <ram>";
print $text[1];
print "</ram>\n";
print " <$platform-ram>";
print $text[1];
print "</$platform-ram>\n";
print " <flash>";
print $text[0];
print "</flash>\n";
print " <$platform-flash>";
print $text[0];
print "</$platform-flash>\n";
print " <stack>";
print $text[2];
print "</stack>\n";
print " <$platform-stack>";
print $text[2];
print "</$platform-stack>\n";
print "</metrics>\n";
|