digits.plp

   1 <(common.inc.plp)><:
   2
   3 Html({
   4         title => 'digit characters sheet',
   5         version => '1.0',
   6         description => [
   7                 "Unicode glyphs of numbers 0 to 10 in various scripts.",
   8         ],
   9         keywords => [qw(
  10                 numeral numerical digit number counting decimal
  11                 script glyph unicode writing comparison list character
  12                 history sample test language multilingual
  13         )],
  14         stylesheet => [qw( light dark circus mono red )],
  15         data => [qw'writing-digits.inc.pl'],
  16 });
  17
  18 :>
  19 <h1>Numerals</h1>
  20
  21 <p>Digits and numbers counting up to ten
  22 in various <a href="/writing">writing systems</a>.</p>
  23
  24 <div>
  25
  26 <:
  27 use Shiar_Sheet::FormatChar;
  28 my $glyphs = Shiar_Sheet::FormatChar->new;
  29 unless (exists $get{v}) {
  30         $glyphs->{unicode}--;
  31         $glyphs->{anno}  = [];
  32         $glyphs->{style} = 'univer';
  33 }
  34
  35 my $scriptname = do 'writing-script.inc.pl';
  36 $_ = qq{<a href="/latin">$_</a>} for $scriptname->{latn} || ();
  37
  38 my @table = do "writing-digits.inc.pl";
  39 die "Table data not found: $_\n" for $@ || $! || ();
  40
  41 print $glyphs->table([map {
  42         ref $_ eq 'ARRAY' ? @{$_} : map { ".>$_" }
  43                 $scriptname->{"digits_$_"} || $scriptname->{$_} || $_
  44 } @table]);
  45
  46 :></div>
  47
  48 <hr>
  49