git.shiar.nl
/
sheet.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
18325ec
)
charset: skip empty petscii rows
author
Mischa POSLAWSKY
<perl@shiar.org>
Wed, 29 Dec 2021 18:28:12 +0000
(19:28 +0100)
committer
Mischa POSLAWSKY
<perl@shiar.org>
Mon, 7 Feb 2022 17:42:33 +0000
(18:42 +0100)
Fix startpoint offset.
charset.plp
patch
|
blob
|
history
diff --git
a/charset.plp
b/charset.plp
index 119d4100f82a06dd1482ac467b499d9ad407fb7a..49f2d504e12dbfe145f44b7246fb0f99919c337d 100644
(file)
--- a/
charset.plp
+++ b/
charset.plp
@@
-132,7
+132,7
@@
sub tabinput {
# extend earlier range
my $skip = int(($row{endpoint} || $row{startpoint}) / $row{cols});
for ($skip + 1 .. (hex($+{start}) / $row{cols}) - 1) {
# extend earlier range
my $skip = int(($row{endpoint} || $row{startpoint}) / $row{cols});
for ($skip + 1 .. (hex($+{start}) / $row{cols}) - 1) {
- $row{skip}->{ $_ * $row{cols}
- $row{startpoint}
}++;
+ $row{skip}->{ $_ * $row{cols} }++;
}
}
else {
}
}
else {
@@
-303,13
+303,13
@@
for my $row (@request) {
print '<tbody>';
while ($offset <= $row->{endpoint} * $colsize) {
print '<tbody>';
while ($offset <= $row->{endpoint} * $colsize) {
- if ($row->{skip}->{$offset}) {
+ if ($row->{skip}->{$offset
+ $row->{offset}
}) {
$offset += $cols * $colsize;
next;
}
print '<tr><th>';
$offset += $cols * $colsize;
next;
}
print '<tr><th>';
- if (defined $row->{skip}->{$offset}) {
+ if (defined $row->{skip}->{$offset
+ $row->{offset}
}) {
print '⋮';
}
else {
print '⋮';
}
else {