charset: check ucplanes for modification date
[sheet.git] / writing.plp
1 <(common.inc.plp)><:
2
3 Html({
4         title => 'writing system inheritance sheet',
5         version => '1.2',
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 circus dark red mono'],
16         data => [qw'writing-phnx.inc.pl'],
17 });
18
19 :>
20 <h1>Writing systems</h1>
21
22 <p>
23 Comparison of Unicode letters in related alphabets.
24 Also see <a href="/charset">charsets</a>
25 and <a href="/unicode">common chars</a>.</p>
26
27 <div class="section">
28
29 <:
30 use Shiar_Sheet::FormatChar;
31 my $glyphs = Shiar_Sheet::FormatChar->new;
32 unless (exists $get{v}) {
33         $glyphs->{unicode}--;
34         $glyphs->{anno}  = [];
35         $glyphs->{style} = 'univer';
36 }
37
38 my $scriptname = do 'writing-script.inc.pl';
39 $_ = qq{<a href="/latin">$_</a>} for $scriptname->{latn} || ();
40
41 for (
42         [phnx => 'Phoenician'],
43         [brah => 'Brahmi'],
44 ) {
45         my ($source, $title) = @$_;
46         my @table = do "writing-$source.inc.pl";
47         if ($! or $@) {
48                 say "<h2>$title</h2>";
49                 printf "<p>Table data not found: <em>%s</em>.</p>\n", $@ || $!;
50                 next;
51         }
52         $glyphs->print($title => [map {
53                 my $lead = s/^(-)// && $1;
54                 ref $_ eq 'ARRAY' ? @$_ : map { ".>$lead$_" }
55                         $scriptname->{$source.'_'.$_} || $scriptname->{$_} || $_
56         } @table]);
57 }
58
59 :></div>
60
61 <hr>
62
63 <div class="legend">
64         <table class="glyphs"><tr>
65         <td class="X l5">unicode 1.1
66         <td class="X l4">20th century
67         <td class="X l3">in 6.0 (2010)
68         <td class="X l2">recent assignments
69         <td class="X l1">proposed
70         <td class="ex">irregular
71         </table>
72 </div>
73