}
}
-
my @text;
my $rc2 = qx"$size $exe |grep main ";
#print $rc2;
print "<metrics>\n";
print " <ram>";
print $text[1];
-print "<ram>\n";
+print "</ram>\n";
+print " <$platform-ram>";
+print $text[1];
+print "</$platform-ram>\n";
print " <flash>";
print $text[0];
-print "<flash>\n";
+print "</flash>\n";
+print " <$platform-flash>";
+print $text[0];
+print "</$platform-flash>\n";
print " <stack>";
print $text[2];
-print "<stack>\n";
+print "</stack>\n";
+print " <$platform-stack>";
+print $text[2];
+print "</$platform-stack>\n";
print "</metrics>\n";