writing.plp

   1 <(common.inc.plp)><:
   2
   3 Html({
   4         title => 'writing system inheritance sheet',
   5         version => 'v1.0',
   6         description => [
   7                 "Character comparison,",
   8                 "tracking letters as they evolve from Phoenician to modern scripts.",
   9                 "Good Unicode test sample.",
  10         ],
  11         keywords => [qw'
  12                 script glyph unicode writing comparison character alphabet letter
  13                 history phoenician latin sample test language multilingual
  14         '],
  15         stylesheet => [qw'light dark red'],
  16 });
  17
  18 :>
  19 <h1>Writing systems</h1>
  20
  21 <p>Also see <a href="/charset">charsets</a>
  22 and <a href="/unicode">common chars</a>.</p>
  23
  24 <div class="section">
  25
  26 <:
  27 use Shiar_Sheet::FormatChar;
  28 my $glyphs = Shiar_Sheet::FormatChar->new;
  29 unless (exists $get{v}) {
  30         $glyphs->{unicode}--;
  31         $glyphs->{digraph}--;
  32 }
  33
  34 my $scriptname = do 'writing-script.inc.pl';
  35 $_ = qq{<a href="/latin">$_</a>} for $scriptname->{latn} || ();
  36
  37 for (
  38         [phnx => 'Phoenician'],
  39         [brah => 'Brahmi'],
  40         [digits => 'Digits'],
  41 ) {
  42         my ($source, $title) = @$_;
  43         my @table = do "writing-$source.inc.pl";
  44         if ($! or $@) {
  45                 print "<h2>$title</h2>\n";
  46                 printf "<p>Table data not found: <em>%s</em>.</p>\n", $! || $@;
  47                 next;
  48         }
  49         $glyphs->print($title => [map {
  50                 ref $_ eq 'ARRAY' ? @$_ : map { ".>$_" }
  51                         $scriptname->{$source.'_'.$_} || $scriptname->{$_} || $_
  52         } @table]);
  53 }
  54
  55 :></div>
  56
  57 <hr>
  58