Changeset 27149 for trunk/ippScripts/scripts/automate_stacks.pl

Timestamp:

Mar 2, 2010, 6:29:45 PM (16 years ago)

Author:

watersc1

Message:

Code and regtool rewrites to enable the lossy compression of old data that aren't scientifically useful.

File:

• trunk/ippScripts/scripts/automate_stacks.pl (modified) (2 diffs)

trunk/ippScripts/scripts/automate_stacks.pl

@@ -426 +426 @@
         my ($trash,$start,$end);
         ($trash,$trash,$start,$end) = (split /\s+/,$row);
-        $metadata_out{"btBegin${N}"} = $start;
-        $metadata_out{"btEnd${N}"} = $end;
-        $metadata_out{"btCounter${N}"} = 0;
-        $N++;
-        print STDERR "define_burntool: $row\n";
+        
+        for (my $class_counter = 0; $class_counter < 60; $class_counter++) {
+            $metadata_out{"bt${N}Begin"} = $start;
+            $metadata_out{"bt${N}End"} = $end;
+            $metadata_out{"bt${N}Class"} = $class_counter;
+            $metadata_out{"bt${N}Status"} = 'NEW';
+            $N++;
+        }
+        print STDERR "define_burntool: $row\n";
     }
     $metadata_out{btN} = $N - 1;
@@ -793 +797 @@
     print STDOUT "autoStack METADATA\n";
     print STDOUT "   date                  STR          $date\n";
-    foreach my $k (keys %metadata_out) {
+    foreach my $k (sort(keys %metadata_out)) {
         print STDOUT "   $k                STR          $metadata_out{$k}\n";
     }