git.shiar.nl
/
sheet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
latin: single cell for identical i/j columns
[sheet.git]
/
charset.plp
diff --git
a/charset.plp
b/charset.plp
index fcd647da740540df7c085708b0ba751fca2ebf2c..d3b27b5df1c9513bffbde53de22307f642f3f2e1 100644
(file)
--- a/
charset.plp
+++ b/
charset.plp
@@
-66,7
+66,7
@@
my @request = map {
$row{table} = ' ' x 1024;
$row{set} = 'Unicode planes';
$row{cell} = do 'charset-ucplanes.inc.pl'
$row{table} = ' ' x 1024;
$row{set} = 'Unicode planes';
$row{cell} = do 'charset-ucplanes.inc.pl'
- or
printf "<p class=error>Table data could not be read: <em>%s</em>.</p>\n", $@ || $!
;
+ or
Alert('Table data could not be read', $@ || $!)
;
@nibble = (map { $_.0, $_.8 } 0 .. 7);
$nibsize = 8;
}
@nibble = (map { $_.0, $_.8 } 0 .. 7);
$nibsize = 8;
}
@@
-75,20
+75,20
@@
my @request = map {
$row{table} = ' ' x ($endpoint < 255 ? 640 : 8192);
$row{set} = 'Unicode BMP';
$row{cell} = do 'charset-unicode.inc.pl'
$row{table} = ' ' x ($endpoint < 255 ? 640 : 8192);
$row{set} = 'Unicode BMP';
$row{cell} = do 'charset-unicode.inc.pl'
- or
printf "<p class=error>Table data could not be read: <em>%s</em>.</p>\n", $@ || $!
;
+ or
Alert('Table data could not be read', $@ || $!)
;
}
elsif ($row{set} eq 'utf-8-strict') {
$row{table} = undef;
$row{set} = 'UTF-8';
$row{cell} = do 'charset-utf8.inc.pl'
}
elsif ($row{set} eq 'utf-8-strict') {
$row{table} = undef;
$row{set} = 'UTF-8';
$row{cell} = do 'charset-utf8.inc.pl'
- or
printf "<p class=error>Table data could not be read: <em>%s</em>.</p>\n", $@ || $!
;
+ or
Alert('Table data could not be read', $@ || $!)
;
}
else {
$row{table} = Encode::decode($row{set}, pack 'C*', $row{offset} .. $endpoint);
}
}
else {
}
else {
$row{table} = Encode::decode($row{set}, pack 'C*', $row{offset} .. $endpoint);
}
}
else {
-
say "<p class=error>Encoding <q>$input</q> unknown</p>"
;
+
Alert("Encoding <q>$input</q> unknown")
;
}
$row{set} ? \%row : ();
}
}
$row{set} ? \%row : ();
}