Mercurial > hg > batmud > misc

changeset 39:cb8ae346a373 misc

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Bit different output format for text output now.
author Matti Hamalainen <ccr@tnsp.org>
date Sun, 19 Apr 2009 10:25:05 +0000
parents d9853d6c2150
children 949d12cc07c0
files materials/parsealloys.pl
diffstat 1 files changed, 4 insertions(+), 4 deletions(-) [+]
line wrap: on
line diff
--- a/materials/parsealloys.pl	Sun Apr 19 10:24:45 2009 +0000
+++ b/materials/parsealloys.pl	Sun Apr 19 10:25:05 2009 +0000
@@ -132,15 +132,15 @@
   print ");\n\n".
   "?>";
 } else {
-  print
-  "| Mineral1        | Mineral 2       | Result(s) [confidence value]\n".
-  "+-----------------+-----------------+--------------------------------\n";
   foreach my $min1 (sort { $a cmp $b } keys %final) {
     foreach my $min2 (sort { $a cmp $b } keys %{$final{$min1}}) {
-      printf "| %-15s | %-15s | ", $min1, $min2;
+      printf "%-35s = ", $min1." + ".$min2;
+      my $n = 0;
       foreach my $res (sort { $final{$min1}{$min2}{$a} <=> $final{$min1}{$min2}{$b} } keys %{$final{$min1}{$min2}}) {
         print $res."[".$final{$min1}{$min2}{$res}."] ";
+        $n++;
       }
+      if ($n > 1) { print " (unstable)"; }
       print "\n";
     }
   }