while ($x =~ /^([^0-9a-fA-F\n])(.*)/mg) {
my $char = $1;
my $name = $2;
-# print STDERR "$1 => $2\n" if DEBUG;
+ print STDERR "$1 => $2\n" if DEBUG;
if ($char =~ /[-+!]/) {
my ($c,$t) = split(/::/, $name, 2); # bogus use of ::, really
my $subobj = $c->SWASHNEW($t, "", 0, 0, 0);
my $max = (defined $2 ? hex $2 : $min);
my $val = hex $3;
next if $max < $start;
-# print "$min $max $val\n";
+ print "$min $max $val\n" if DEBUG;
if ($none) {
if ($min < $start) {
$val += $start - $min if $val < $none;
}
for ($key = $min; $key <= $max; $key++) {
last LINE if $key >= $end;
-# print STDERR "$key => $val\n" if DEBUG;
+ print STDERR "$key => $val\n" if DEBUG;
vec($swatch, $key - $start, $bits) = $val;
++$val if $val < $none;
}
}
for ($key = $min; $key <= $max; $key++, $val++) {
last LINE if $key >= $end;
-# print STDERR "$key => $val\n" if DEBUG;
+ print STDERR "$key => $val\n" if DEBUG;
vec($swatch, $key - $start, $bits) = $val;
}
}
}
for ($key = $min; $key <= $max; $key++) {
last LINE if $key >= $end;
-# print STDERR "$key => 1\n" if DEBUG;
+ print STDERR "$key => 1\n" if DEBUG;
vec($swatch, $key - $start, 1) = 1;
}
}