my $input = shift or return;
state $ALIAS = {
- default => [qw( unicode+0-639 utf-8 iso-8859-1 iso-8859-15 cp1252 cp437 cp850 )],
- uc => [qw( U++ unicode+0-4095 unicode+4096-6319 unicode+6320-8191 )],
+ default => [qw( unicode+0-639 utf-8+realsize iso-8859-1 iso-8859-15 cp1252 cp437 cp850 )],
+ uc => [qw( U+cols=32 unicode+0-4095 unicode+4096-6319 unicode+6320-8191 )],
us => [qw( cp437 cp863 gsm0338 AdobeStandardEncoding )],
ebcdic => [qw( cp37 cp500 cp1047 posix-bc cp1026 cp875 )],
iso => [map {"iso-8859-$_"} 1 .. 11, 13 .. 16],
$visible->{$_} //= 0 for $row{parent} || ();
}
- if (length $params) {
- # manual option to double table width
- $row{cols} *= 2 if $params =~ s/[+]\z//;
- }
-
for my $param (split /[+]+/, $params // '') {
- if ($param =~ m{ \A (?<offset> \d+) (?: [-] (?<endpoint> \d+) )? \z }x) {
- if ($row{offset}) {
+ if ($param eq 'realsize') {
+ $row{realsize}++;
+ }
+ elsif ($param =~ m{ \A cols = (\d+) \z }x) {
+ $row{cols} = $1;
+ }
+ elsif ($param =~ m{ \A (?<offset> \d+) (?: [-] (?<endpoint> \d+) )? \z }x) {
+ if (defined $row{endpoint}) {
+ # extend earlier range
my $skip = int(($row{endpoint} || $row{offset}) / $row{cols});
for ($skip + 1 .. ($+{offset} / $row{cols}) - 1) {
$row{skip}->{ $_ * $row{cols} - $row{offset} }++;
else {
$row{offset} = $+{offset};
}
- $row{endpoint} = $+{endpoint};
+ $row{endpoint} = $+{endpoint} || 0;
}
else {
Alert("Unknown option <q>$param</q> for charset $input");
$class .= ' joind';
}
- # coalesce multiple rows
- while ($rows > 3) {
- $info->{skip}->{$offset += $rowsize}++;
- $rows--;
- }
- if ($rows > 2) {
- $info->{skip}->{$offset += $rowsize} = 0;
+ unless ($info->{realsize}) {
+ # coalesce multiple rows
+ while ($rows > 3) {
+ $info->{skip}->{$offset += $rowsize}++;
+ $rows--;
+ }
+ if ($rows > 2) {
+ $info->{skip}->{$offset += $rowsize} = 0;
+ }
}
$attr .= sprintf ' rowspan=%d', $rows;