X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~yarrgweb/git?p=ypp-sc-tools.main.git;a=blobdiff_plain;f=pctb%2Fyppsc-decode-marketdata;h=e8f0ef0b3df447ba306e2ca90871a317f7914936;hp=787790c4a1349bfccd98898481d70975f870bb3c;hb=840cdd8228582260d8e67430618e829251a94081;hpb=28256e22ade5d95e52ab7ab130364ca7993a6b38

diff --git a/pctb/yppsc-decode-marketdata b/pctb/yppsc-decode-marketdata
index 787790c..e8f0ef0 100755
--- a/pctb/yppsc-decode-marketdata
+++ b/pctb/yppsc-decode-marketdata
@@ -45,7 +45,7 @@ sub inmap($\@$) {
     my ($what,$ary,$ix) = @_;
     my $got= $ary->[$ix];
     return $got if defined $got;
-    warn "$what $ix ?";
+    die "$what $ix ?";
 }
     
 
@@ -67,9 +67,10 @@ unshift @stalls, undef;
 $|=1;
 
 foreach $bs qw(Buy Sell) {
-    $ncommods= getint("Buy ncommods");
-    for ($commodnum=0; $commodnum<$ncommods; $commodnum++) {
-	$commodix= getint("Buy $commodnum commodix");
+    $alloffers_want= getint("Buy ncommods");
+    $alloffers_done=0;
+    while ($alloffers_done < $alloffers_want)  {
+	$commodix= getint("Buy $alloffers_done/$alloffers_want commodix");
 	$offers= getint("Buy $commodnum offers");
 	for ($offernum=0; $offernum<$offers; $offernum++) {
 	    $stallix= getint("Buy $commodnum $offernum stallix");
@@ -83,6 +84,8 @@ foreach $bs qw(Buy Sell) {
 	    printf("\t%d\t%d", $price, $qty) or die $!;
 	    if ($bs eq 'Buy') { print "\t\t" or die $!; }
 	    print "\n" or die $!;
+	    $alloffers_done++;
+	    die if $alloffers_done > $alloffers_want;
 	}
     }
 }