X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/bba0d5b6fb0b1bbe6b5bb4a84c72de2152d8dfe3..a6bf5822695c1e3608f1692398d47e28a9623a79:/apl.plp?ds=sidebyside
diff --git a/apl.plp b/apl.plp
index 546be3b..302a55d 100644
--- a/apl.plp
+++ b/apl.plp
@@ -27,9 +27,7 @@ EOT
use Shiar_Sheet::FormatChar;
my $glyphs = Shiar_Sheet::FormatChar->new;
-
-my @ops = do 'apl.inc.pl';
-@ops > 1 or die "cannot open operator include: $@\n";
+my $ops = Data('apl');
:>
APL Symbols
@@ -49,9 +47,9 @@ my @ops = do 'apl.inc.pl';
<:
-for my $op (@ops) {
+for my $op (@{$ops}) {
$op or do {
- print "\n";
+ say '';
next;
};
@@ -70,26 +68,16 @@ for my $op (@ops) {
[defined $entity ? 'l4' : $ascii ? 'l5' : 'l1', $entity // "#$codepoint"],
);
printf(
- defined $_ ? '%s' : ' | ',
- map { !!$_->[1] && qq( title="$_->[1]"), $_->[0] }
- [map { EscapeHTML($_) } split /\n/, $_, 2]
+ ' | %s',
+ map { defined ? (!!$_->[1] && qq( title="$_->[1]"), $_->[0]) : (' class=Xi', '') }
+ $_ && [map { EscapeHTML($_) } split /\n/, $_, 2]
) for $monad, $dyad;
- print " | \n";
+ say '';
}
:>
-
-
-
-
- unicode 1.1
- | 20th century
- | in 6.0 (2010)
- | recent assignments
- | proposed
- | irregular
- |
-
+<:
+say for '
', $glyphs->legend;