quacks-ingredients: better counting reports, more

[reprap-play.git] / quacks-ingredients-counts

diff --git a/quacks-ingredients-counts b/quacks-ingredients-counts
index e9f6acf1fde58562a48736930c091853e559579f..3e49a9528c227f2b1a8c48ae3cced84429741a78 100755 (executable)
--- a/quacks-ingredients-counts
+++ b/quacks-ingredients-counts
@@ -53,7 +53,8 @@ sub wrtoplevel () {
     $max_nrows = $nrows if $nrows > $max_nrows;
     $max_rowsz = $rowsz if $rowsz > $max_rowsz;
     my $ix = 0;
-    print "// $name: total=$total, rowsz=$rowsz, nrows=$nrows\n";
+    printf "// %-10s  total=%2d  rowsz=$rowsz  nrows=$nrows\n",
+       "$name", $total;
     foreach my $nspots (sort keys %$cs) {
        my $c = $cs->{$nspots};
        print <<END;
@@ -80,8 +81,8 @@ foreach $name (sort keys %count) {
 }
 
 print <<END;
-// total_count=$total_count total_real_count=$total_real_count
-// max_rowsz=$max_rowsz max_nrows=$max_nrows
+// total_count=$total_count   total_real_count=$total_real_count
+// max_rowsz=$max_rowsz       max_nrows=$max_nrows
 END
 
 STDOUT->error and die $!;