Source of writing.plp

<(common.inc.plp)><:

Html({
	title => 'writing system inheritance sheet',
	version => '1.2',
	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 circus dark red mono'],
	data => [qw'writing-phnx.inc.pl'],
});

:>
<h1>Writing systems</h1>

<p>
Comparison of Unicode letters in related alphabets.
Also see <a href="/charset">charsets</a>
and <a href="/unicode">common chars</a>.</p>

<div class="section">

<:
use Shiar_Sheet::FormatChar;
my $glyphs = Shiar_Sheet::FormatChar->new;
unless (exists $get{v}) {
	$glyphs->{unicode}--;
	$glyphs->{anno}  = [];
	$glyphs->{style} = 'univer';
}

my $scriptname = do 'writing-script.inc.pl';
$_ = qq{<a href="/latin">$_</a>} for $scriptname->{latn} || ();

for (
	[phnx => 'Phoenician'],
	[brah => 'Brahmi'],
) {
	my ($source, $title) = @$_;
	my @table = do "writing-$source.inc.pl";
	if ($! or $@) {
		print "<h2>$title</h2>\n";
		printf "<p>Table data not found: <em>%s</em>.</p>\n", $@ || $!;
		next;
	}
	$glyphs->print($title => [map {
		my $lead = s/^(-)// && $1;
		ref $_ eq 'ARRAY' ? @$_ : map { ".>$lead$_" }
			$scriptname->{$source.'_'.$_} || $scriptname->{$_} || $_
	} @table]);
}

:></div>

<hr>

<div class="legend">
	<table class="glyphs"><tr>
	<td class="X l5">unicode 1.1
	<td class="X l4">20th century
	<td class="X l3">in 6.0 (2010)
	<td class="X l2">recent assignments
	<td class="X l1">proposed
	<td class="ex">irregular
	</table>
</div>