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:
0e84169
)
unicode: allow row ranges, fix verbose binary
author
Mischa POSLAWSKY
<perl@shiar.org>
Sat, 25 Dec 2010 00:27:01 +0000
(
01:27
+0100)
committer
Mischa POSLAWSKY
<perl@shiar.org>
Tue, 11 Jan 2011 22:41:38 +0000
(23:41 +0100)
unicode.plp
patch
|
blob
|
history
diff --git
a/unicode.plp
b/unicode.plp
index 09200305cf17c37c932554e2aab772045eb2c755..2e9678b811b6b06e653ad91c1c8a674c17dc23ba 100644
(file)
--- a/
unicode.plp
+++ b/
unicode.plp
@@
-59,7
+59,10
@@
$glyphs->print(map {
for ($rowlen = 1; $rowlen++; $rowlen <= $#$table) {
last if $table->[$rowlen] =~ /\./;
}
for ($rowlen = 1; $rowlen++; $rowlen <= $#$table) {
last if $table->[$rowlen] =~ /\./;
}
- my @cells = map { $_*$rowlen .. ($_+1)*$rowlen - 1 } @select;
+ my @cells = map {
+ my $end = (s/-(.+)?// ? ($1 // @$table / $rowlen - 1) : $_) + 1;
+ $_ * $rowlen .. $end * $rowlen - 1;
+ } @select;
[ @$table[@cells] ];
}
else {
[ @$table[@cells] ];
}
else {
@@
-70,9
+73,9
@@
$glyphs->print(map {
Popular
punctuation/quoting
common
Popular
punctuation/quoting
common
- symbols/binary?symbols/binary=
0
- latin/sample=
0=
1
- sample=2
=
3
+ symbols/binary?symbols/binary=
-5
+ latin/sample=
-
1
+ sample=2
-
3
?uncommon
punctuation/version
punctuation/marks
?uncommon
punctuation/version
punctuation/marks