+++ /dev/null
-#!/usr/bin/perl
-
-use IO::Handle;
-
-open CM, "#commodmap#.tsv" or die $!;
-
-$debug=1 if @ARGV;
-
-while (<CM>) {
- m/^(\S.*\S)\t(\d+)$/ or die;
- $commodmap[$2]= $1;
-}
-die $! if CM->error;
-
-%stallkinds= qw(A Apothecary
- D Distilling
- F Furnishing
- I Ironworking
- S Shipbuilding
- T Tailor
- W Weaving);
-
-sub getline ($) {
- my ($w)= @_;
- $!=0; my $l= <STDIN>; die $! unless defined $l;
- die $! if STDIN->error;
- die unless chomp $l;
- print "GOT FOR $w LINE [$l]\n"
- if $debug;
- return $l;
-}
-
-sub getint ($) {
- my ($w)= @_;
- my $b;
- my $t= tell STDIN; $t>=0 or die $!;
- my $r= read STDIN,$b,2; die $! if STDIN->error;
- die unless $r==2;
- my $v= scalar unpack "v", $b;
- printf "GOT AT 0x%x INT FOR %s VALUE %d 0x%x\n", $t, $w, $v, $v
- if $debug;
- return $v;
-}
-
-sub inmap($\@$) {
- my ($what,$ary,$ix) = @_;
- my $got= $ary->[$ix];
- return $got if defined $got;
- die "$what $ix ?";
-}
-
-
-printf "# Version: \"%s\"\n", getline("version");
-$nstalls= getline("nstalls")+0;
-
-while (@stalls < $nstalls) {
- $_= getline("stall name ".(@stalls+1));
- if (s/\^([A-Z])$//) {
- $kind= $1;
- $sk= $stallkinds{$kind};
- die "kind $kind in $_ ?" unless defined $sk;
- $_ .= "'s $sk Stall";
- }
- push @stalls, $_;
-}
-unshift @stalls, undef;
-
-$|=1;
-
-foreach $bs qw(Buy Sell) {
- $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");
- $price= getint("Buy $commodnum $offernum price");
- $qty= getint("Buy $commodnum $offernum qty");
- printf("%s\t%s\t%s",
- $bs,
- inmap('commod',@commodmap,$commodix),
- inmap('stall',@stalls,$stallix)) or die $!;
- if ($bs eq 'Sell') { print "\t\t" or die $!; }
- 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;
- }
- }
-}
-
-$r= read STDIN,$b,1;
-STDIN->error and die $!;
-STDIN->eof or die;
-$b and die;