(common.inc.plp)><:
Html({
title => 'writing system inheritance sheet',
version => 'v1.0',
description => [
"Character comparison,",
"tracking letters as they evolve from Phoenician to modern scripts.",
"Good Unicode test sample.",
],
keywords => [qw'
script glyph unicode writing comparison character alphabet letter
history phoenician latin sample test language multilingual
'],
stylesheet => [qw'light dark red'],
});
:>
<:
use Shiar_Sheet::FormatChar;
my $glyphs = Shiar_Sheet::FormatChar->new;
unless (exists $get{v}) {
$glyphs->{unicode}--;
$glyphs->{digraph}--;
}
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',
);
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", $! || $@;
next;
}
$glyphs->print($title => [map {
ref $_ eq 'ARRAY' ? @$_ : map { ".>$_" }
$scriptname{$source.'_'.$_} || $scriptname{$_} || $_
} @table]);
}
:>