my $input = shift or return;
state $ALIAS = {
- default => [qw( unicode+0-639 utf-8 iso-8859-1 iso-8859-15 cp1252 cp437 cp850 )],
+ 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 )],
}
for my $param (split /[+]+/, $params // '') {
- if ($param =~ m{ \A cols = (\d+) \z }x) {
+ 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) {
$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;