unicode: allow row ranges, fix verbose binary

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