X-Git-Url: http://git.shiar.net/sheet.git/blobdiff_plain/8241e3a550f1eb18ed7d955dd0ebda9a4e3bc7d6..e10ebeeeccd813dd3d9ff3e23b3338036deb66b1:/apl.plp?ds=sidebyside diff --git a/apl.plp b/apl.plp new file mode 100644 index 0000000..0e4ddcf --- /dev/null +++ b/apl.plp @@ -0,0 +1,70 @@ +<(common.inc.plp)><: + +Html({ + title => 'APL', + version => 'v1.0', + description => [ + ], + keywords => [qw' + '], + stylesheet => [qw'light circus dark red'], + data => [qw'apl.inc.pl'], +}); + +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"; + +:> +
op + | input + | meaning + | ||
di | html + | monadic + | dyadic + | |
%s'."\n", $chr, EscapeHTML($name || '?'), $class; + printf ' | %s', @{$_} for ( + [defined $mnem ? $class =~ /\bu-di\b/ ? 'l4' : 'l3' : $ascii ? 'l5' : 'l1', + EscapeHTML($mnem) // sprintf('%s%0*X', $codepoint < 256 ? (x => 2) : (u => 4), $codepoint)], + [defined $html ? 'l4' : $ascii ? 'l5' : 'l1', $html // "#$codepoint"], + ); + printf( + defined $_ ? ' | %s' : ' | ', + map { EscapeHTML($_) } split /\n/, $_, 2 + ) for $monad, $dyad; +} + +:> |
---|
unicode 1.1 + | 20th century + | in 6.0 (2010) + | recent assignments + | proposed + | irregular + |