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 (from parent 1:
f823f4e
)
charset: fix cp437 offset on extend
author
Mischa POSLAWSKY
<perl@shiar.org>
Sat, 8 Apr 2017 21:32:50 +0000
(23:32 +0200)
committer
Mischa POSLAWSKY
<perl@shiar.org>
Mon, 24 Apr 2017 23:51:41 +0000
(
01:51
+0200)
charset.plp
patch
|
blob
|
history
diff --git
a/charset.plp
b/charset.plp
index 33e5db49c3af58910f0f2048e1412343cabd5141..74ea8e7c2d4095cc57aee87b80d64e96f495c277 100644
(file)
--- a/
charset.plp
+++ b/
charset.plp
@@
-226,7
+226,8
@@
sub tabinput {
$row{cols} = $1;
}
elsif ($param =~ m{ \A (?<offset> \d+) (?: [-] (?<endpoint> \d+) )? \z }x) {
$row{cols} = $1;
}
elsif ($param =~ m{ \A (?<offset> \d+) (?: [-] (?<endpoint> \d+) )? \z }x) {
- if ($row{offset}) {
+ 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} }++;
my $skip = int(($row{endpoint} || $row{offset}) / $row{cols});
for ($skip + 1 .. ($+{offset} / $row{cols}) - 1) {
$row{skip}->{ $_ * $row{cols} - $row{offset} }++;
@@
-235,7
+236,7
@@
sub tabinput {
else {
$row{offset} = $+{offset};
}
else {
$row{offset} = $+{offset};
}
- $row{endpoint} = $+{endpoint};
+ $row{endpoint} = $+{endpoint}
|| 0
;
}
else {
Alert("Unknown option <q>$param</q> for charset $input");
}
else {
Alert("Unknown option <q>$param</q> for charset $input");