X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~yarrgweb/git?p=ypp-sc-tools.main.git;a=blobdiff_plain;f=yarrg%2FCommods.pm;h=f3ae56fcbd0e4827c2168f6ebd3f15cdc070a6b2;hp=b7b18a615a2384e0b2dd51b5e0bc3d58fcde916e;hb=f0b3edba71dfa86c261095b5c95f5e6633e143f7;hpb=bb95133fcfbd4698daa59debdbaa73a4d1e6252a

diff --git a/yarrg/Commods.pm b/yarrg/Commods.pm
index b7b18a6..f3ae56f 100644
--- a/yarrg/Commods.pm
+++ b/yarrg/Commods.pm
@@ -102,7 +102,7 @@ my %colours; # eg $colours{'c'}{'black'}= $sources
 my (@rawcm, @nocm); # eg $rawcm[0]='fine rum'; $rawcm[1]='fine %c cloth'
 
 my %colour_ordvals; # $colour_ordvals{'c'}{'green'}= '30';
-my %commodclasses; # $commodclasses{'dye'}= '3';
+our %commodclasses; # $commodclasses{'dye'}= '3';
 
 # IMPORTANT
 #  when extending the format of source-info in a non-backward
@@ -137,7 +137,7 @@ sub parse_info1 ($$$) {
 	    @ctx= (sub { push @nocm, lc $_; });
 	} elsif (m/^commodclasses$/) {
 	    @ctx= (sub {
-		die unless m/^\*([-a-z]+)$/;
+		die unless m/^\*([_a-z]+)$/;
 		$commodclasses{$1}= scalar keys %commodclasses;
 	    });
 	} elsif (m/^ocean (\w+)$/) {
@@ -207,23 +207,27 @@ sub parse_info1 ($$$) {
 	    $commods{$ucname}{Srcs} .= $ss;
 	    my $c= $commods{$ucname};
 	    $c->{Volume}= 1000;
+	    $c->{Flags}= '';
 	    my ($ordval, $ordclassval);
 	    foreach my $prop (defined $props ? split /\s+/, $props : ()) {
 		if ($prop =~ m/^([1-9]\d*)(k?)g$/) {
 		    $c->{Mass}= $1 * ($2 ? 1000 : 1);
 		} elsif ($prop =~ m/^([1-9]\d*)l$/) {
 		    $c->{Volume}= $1 * 1000;
-		} elsif ($prop =~ m/^\*([-a-z]+)$/) {
+		} elsif ($prop =~ m/^\*([_a-z]+)$/) {
 		    $c->{Class}= $1;
 		    die "$1" unless exists $commodclasses{$1};
 		    $ordclassval= 1e7 + $commodclasses{$1} * 1e7;
 		} elsif ($prop =~ m/^\@(\d+\+?)$/) {
 		    $ordval= $1;
 		    $ordval =~ s/^(\d+)\+$/ $1 + $lnoix * 10 /e;
+		} elsif ($prop =~ m/^\!([a-z]+)$/) {
+		    $c->{Flags} .= $1;
 		} else {
 		    die "unknown property $prop for $ucname";
 		}
 	    }
+	    $c->{ClassOrdval}= $ordclassval;
 	    if (defined $ordbase && defined $ordval && defined $ordclassval) {
 		my $ordvalout= $ordbase + $ordval + $ordclassval;
 		$c->{Ordval}= $ordvalout;
@@ -427,8 +431,8 @@ sub check_tsv_line ($$) {
 	defined $commods{$commod} or
 	&$bad_data("unknown commodity ".errsan($commod));
     
-    $stall =~ m/^\p{IsUpper}|^[0-9]/ or
-	&$bad_data("stall not capitalised ".errsan($stall));
+    $stall =~ m/^\p{IsAlnum}/ or
+	&$bad_data("stall does not start with alphanumeric ".errsan($stall));
     !exists $check_tsv_done{$commod,$stall} or
 	&$bad_data("repeated data ".errsan($commod).",".errsan($stall));
     $check_tsv_done{$commod,$stall}= 1;