From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Tue, 25 Jan 2011 15:23:03 +0000 (+0000)
Subject: canon: commodids in each stall are offsets
X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~yarrgweb/git?a=commitdiff_plain;h=e9ac19d1976ee87ae5ce48687433172ddc666b1e;p=ypp-sc-tools.main.git

canon: commodids in each stall are offsets
---

diff --git a/yarrg/canon b/yarrg/canon
index 1ba6b02..9ae01e5 100755
--- a/yarrg/canon
+++ b/yarrg/canon
@@ -45,6 +45,7 @@ sub findcommod ($) {
 }
 
 my $laststall='';
+my $lastcommod;
 
 foreach my $stall (sort keys %s) {
 my $stallstuff= $s{$stall};
@@ -59,8 +60,12 @@ foreach my $commod (sort { findcommod($a) <=> findcommod($b) }
         if ($stall ne $laststall) {
             printf "\"%s\n", $stall;
             $laststall= $stall;
+            $lastcommod= 0;
         }
-        print alencodenum(findcommod($commod));
+        my $commodnum= findcommod($commod);
+        die if $commodnum < $lastcommod;
+        print alencodenum($commodnum - $lastcommod);
+        $lastcommod= $commodnum;
     };
 
     if (!defined($r[2])) {