X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/0afa5f70a0d6ca06d8ebe1724d1032b157057049..bcdcb872044a3146c38f3c17bb601130f170aff4:/writing.plp?ds=inline
diff --git a/writing.plp b/writing.plp
index 4187d01..81ef21b 100644
--- a/writing.plp
+++ b/writing.plp
@@ -2,7 +2,7 @@
Html({
title => 'writing system inheritance sheet',
- version => 'v1.0',
+ version => '1.1',
description => [
"Character comparison,",
"tracking letters as they evolve from Phoenician to modern scripts.",
@@ -12,13 +12,16 @@ Html({
script glyph unicode writing comparison character alphabet letter
history phoenician latin sample test language multilingual
'],
- stylesheet => [qw'light dark red'],
+ stylesheet => [qw'light circus dark red mono'],
+ data => [qw'writing-phnx.inc.pl'],
});
:>
@@ -28,85 +31,28 @@ use Shiar_Sheet::FormatChar;
my $glyphs = Shiar_Sheet::FormatChar->new;
unless (exists $get{v}) {
$glyphs->{unicode}--;
- $glyphs->{digraph}--;
+ $glyphs->{anno} = [];
+ $glyphs->{style} = 'univer';
}
-my %scriptname = (
- arab => 'Arabic',
- armi => 'Aramaic',
- bali => 'Balinese',
- beng => 'Bengali',
- brah => 'Brahmi',
- cham => 'Cham',
- copt => 'Coptic',
- cyrl => 'Cyrillic',
- deva => 'Devanagari',
- ethi => 'Ethiopic',
- goth => 'Gothic',
- grek => 'Greek',
- gujr => 'Gujarati',
- guru => 'Gurmukhi', # ਪੰà¨à¨¾à¨¬à© ੧
- hans => 'Chinese',
- hant => 'Chinese',
- hebr => 'Hebrew',
- ipa => 'IPA',
- iso => 'ISO',
- ital => 'Old_Italic',
- java => 'Javanese',
- kali => 'Kayah_Li',
- khmr => 'Khmer',
- knda => 'Kannada',
- lana => 'Tai_Tham',
- laoo => 'Lao',
- latn => '
Latin',
- lepc => 'Lepcha',
- lyci => 'Lycian',
- lydi => 'Lydian',
- mlym => 'Malayalam', # മലയാളഠ൧
- mymr => 'Myanmar',
- olck => 'Ol_Chiki',
- orya => 'Oriya', # à¬àିà¬
- osma => 'Osmanya',
- phnx => 'Phoenician',
- samr => 'Samaritan',
- saur => 'Saurashtra',
- sinh => 'Sinhala',
- sund => 'Sundanese',
- syrc => 'Syriac',
- talu => 'New_Tai_Lue',
- taml => 'Tamil', # தமிழ௠௧
- telu => 'Telugu',
- teng => 'Tengwar',
- tglg => 'Baybayin',
- thai => 'Thai', # à¹à¸à¸¢
- tibt => 'Tibetan',
- tlh => 'Klingon',
-
- digits_latn => 'Arabic_(Western)',
- digits_latnlat => 'Roman',
- digits_brai => 'Braille_[â ¼+]',
- arabindi => 'Arabic_-_Indic',
- arabpers => 'Arabic_-_Indic_(Alt)',
- digits_brahnumb => 'Brahmi',
- lanahora => 'Tai_Tham_Hora',
- suzhou => 'Hangzhou',
-);
+my $scriptname = do 'writing-script.inc.pl';
+$_ = qq{
$_} for $scriptname->{latn} || ();
for (
[phnx => 'Phoenician'],
[brah => 'Brahmi'],
- [digits => 'Digits'],
) {
my ($source, $title) = @$_;
my @table = do "writing-$source.inc.pl";
if ($! or $@) {
print "
$title
\n";
- printf "
Table data not found: %s.
\n", $! || $@;
+ printf "
Table data not found: %s.
\n", $@ || $!;
next;
}
$glyphs->print($title => [map {
- ref $_ eq 'ARRAY' ? @$_ : map { ".>$_" }
- $scriptname{$source.'_'.$_} || $scriptname{$_} || $_
+ my $lead = s/^(-)// && $1;
+ ref $_ eq 'ARRAY' ? @$_ : map { ".>$lead$_" }
+ $scriptname->{$source.'_'.$_} || $scriptname->{$_} || $_
} @table]);
}
@@ -114,3 +60,14 @@ for (
+
+
+ unicode 1.1
+ | 20th century
+ | in 6.0 (2010)
+ | recent assignments
+ | proposed
+ | irregular
+ |
+
+