chiark / gitweb /
fix genmarketdata output file format
authorIan Jackson <ian@liberator.relativity.greenend.org.uk>
Wed, 10 Jun 2009 00:08:36 +0000 (01:08 +0100)
committerIan Jackson <ian@liberator.relativity.greenend.org.uk>
Wed, 10 Jun 2009 00:08:36 +0000 (01:08 +0100)
pctb/yppsc-commod-processor

index 5782a5a..0f25452 100755 (executable)
@@ -307,8 +307,8 @@ sub bs_gen_md ($$) {
         $current= $commod{$commod};
        my $l= bs_p($commod,$bs,$sortmul);
        next unless @$l;
-#print STDERR "COMMOD $commod @$l\n";
-
+#print STDERR "COMMOD $commod  has ".scalar(@$l)."\n";
+       $o .= writeint($commodmap{$commod});
        $o .= writeint(scalar @$l);
        foreach my $cs (@$l) {
            $stall= $cs->{Stall};
@@ -316,6 +316,7 @@ sub bs_gen_md ($$) {
            if (!defined $stallix) {
                push @stallmap, $stall;
                $stallmap{$stall}= $stallix= @stallmap;
+#print STDERR "STALL DEF $stallix $stall\n";
            }
            my $qty= $cs->{Qty};
            $qty =~ s/^\>\s*//;