X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/5464db21077f6af072bd770f6cb6e907eb48b73d..5a85c6bfca6be44dadd58eedd0d9f0d1d5619e5f:/writing.plp

diff --git a/writing.plp b/writing.plp
index d71dba4..4187d01 100644
--- a/writing.plp
+++ b/writing.plp
@@ -31,6 +31,67 @@ unless (exists $get{v}) {
 	$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     => '<a href="/latin">Latin</a>',
+	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'],
@@ -43,7 +104,10 @@ for (
 		printf "<p>Table data not found: <em>%s</em>.</p>\n", $! || $@;
 		next;
 	}
-	$glyphs->print($title => [ map { @$_ } grep { ref $_ eq 'ARRAY' } @table ]);
+	$glyphs->print($title => [map {
+		ref $_ eq 'ARRAY' ? @$_ : map { ".>$_" }
+			$scriptname{$source.'_'.$_} || $scriptname{$_} || $_
+	} @table]);
 }
 
 :></div>