-sub printcell_unicode {
- my ($value) = @_;
- if ($value > 0xFFF) {
- print "\n".'<td class="X">?';
- }
- elsif ($value == 0) {
- print '<td colspan="2" class="X Cc" style="border-right:none">control';
- }
- elsif ($value == 2) {
- print '<td colspan="2" class="X L Po" style="border-left:none; border-right:none">comn';
- }
- elsif ($value == 4) {
- print '<td colspan="4" class="X L Latin" style="border-left:none">basic latin';
- }
- elsif ($value == 8) {
- print '<td colspan="2" class="X Cc" style="border-right:none">control';
- }
- elsif ($value == 10) {
- print '<td colspan="2" class="X L So" style="border-left:none; border-right:none">comn';
- }
- elsif ($value == 12) {
- print '<td colspan="4" class="X L Latin" style="border-left:none">latin1';
- }
- elsif ($value == 0x10) {
- print '<td colspan="8" class="X L Latin">latin extended-A';
- }
- elsif ($value == 0x18) {
- print '<td colspan="8" class="X L Latin">latin extended-B';
- }
- elsif ($value == 0x20) {
- print '<td colspan="5" class="X L Latin">latin ext-B';
- }
- elsif ($value == 0x25) {
- print '<td colspan="6" class="X L Latin">IPA';
- }
- elsif ($value == 0x2B) {
- print '<td colspan="5" class="X Sk">spacing modifier';
- }
- elsif ($value == 0x30) {
- print '<td colspan="8" class="X Mn">diacritics';
- }
- elsif ($value == 0x38) {
- print '<td colspan="8" class="X L Greek">greek';
- }
- elsif ($value == 0x40) {
- print '<td colspan="16" class="X L Cyrillic">cyrillic';
- }
- elsif ($value == 0x50) {
- print '<td colspan="3" class="X L Cyrillic">cyrillic+';
- }
- elsif ($value == 0x53) {
- print '<td colspan="5" class="X L Armenian">armenian';
- }
- elsif ($value == 0x58) {
- print '<td colspan="8" class="X L Hebrew">hebrew';
- }
- elsif ($value == 0x60) {
- print '<td colspan="16" class="X L Arabic">arabic';
- }
- elsif ($value == 0x70) {
- print '<td colspan="5" class="X L Aramaic">syriac';
- }
- elsif ($value == 0x75) {
- print '<td colspan="3" class="X L Arabic">arabic+';
- }
- elsif ($value == 0x78) {
- print '<td colspan="4" class="X L African">thaana';
- }
- elsif ($value == 0x7C) {
- print '<td colspan="4" class="X L African">n\'ko';
- }
- elsif ($value == 0x80) {
- print '<td colspan="4" class="X Xr L Hebrew">samaritan';
- }
- elsif ($value == 0x84) {
- print '<td colspan="2" class="X Xr L Aramaic">manda';
- }
- elsif ($value == 0x86) {
- print '<td colspan="12" class="">reserved';
- }
- elsif ($value == 0x90) {
- print '<td colspan="8" class="X L Brahmic">devanagari';
- }
- elsif ($value == 0x98) {
- print '<td colspan="8" class="X L Brahmic">bengali';
- }
- elsif ($value == 0xA0) {
- print '<td colspan="8" class="X L Brahmic">gurmukhi';
- }
- elsif ($value == 0xA8) {
- print '<td colspan="8" class="X L Brahmic">gujarati';
- }
- elsif ($value == 0xB0) {
- print '<td colspan="8" class="X L Brahmic">oriya';
- }
- elsif ($value == 0xB8) {
- print '<td colspan="8" class="X L Brahmic">tamil';
- }
- elsif ($value == 0xC0) {
- print '<td colspan="8" class="X L Brahmic">telugu';
- }
- elsif ($value == 0xC8) {
- print '<td colspan="8" class="X L Brahmic">kannada';
- }
- elsif ($value == 0xD0) {
- print '<td colspan="8" class="X L Brahmic">malayalam';
- }
- elsif ($value == 0xD8) {
- print '<td colspan="8" class="X L Brahmic">sinhala';
- }
- elsif ($value == 0xE0) {
- print '<td colspan="8" class="X L Brahmic Khmer">thai';
- }
- elsif ($value == 0xE8) {
- print '<td colspan="8" class="X L Brahmic Khmer">lao';
- }
- elsif ($value == 0xF0) {
- print '<td colspan="16" class="X L Brahmic">tibetan';
- }
- elsif ($value == 0x100) {
- print '<td colspan="10" class="X L Brahmic">myanmar';
- }
- elsif ($value == 0x10A) {
- print '<td colspan="6" class="X L Aramaic">georgian';
- }
- elsif ($value == 0x110) {
- print '<td colspan="16" class="X L Hangul">hangeul jamo';
- }
- elsif ($value == 0x120) {
- print '<td colspan="16" class="X L African">ethiopic';
- }
- elsif ($value == 0x130) {
- print '<td colspan="8" class="X L African">ethiopic';
- }
- elsif ($value == 0x138) {
- print '<td colspan="2" class="X L African">eth+';
- }
- elsif ($value == 0x13A) {
- print '<td colspan="6" class="X L Syllabic">cherokee';
- }
- elsif ($value == 0x140) {
- print '<td colspan="16" rowspan="2" class="X L Syllabic">unified canadian aboriginal syllabics';
- }
- elsif ($value == 0x160) {
- print '<td colspan="8" class="X L Syllabic">unified canadian syllabics';
- }
- elsif ($value == 0x168) {
- print '<td colspan="2" class="X L Alpha">ogham';
- }
- elsif ($value == 0x16A) {
- print '<td colspan="6" class="X L Alpha">runic';
- }
- elsif ($value == 0x170) {
- print '<td colspan="2" class="X L Brahmic">tagalog';
- }
- elsif ($value == 0x172) {
- print '<td colspan="2" class="X L Brahmic">hanun';
- }
- elsif ($value == 0x174) {
- print '<td colspan="2" class="X L Brahmic">buhid';
- }
- elsif ($value == 0x176) {
- print '<td colspan="2" class="X L Brahmic" title="tagbanwa">tagb';
- }
- elsif ($value == 0x178) {
- print '<td colspan="8" class="X L Brahmic Khmer">khmer';
- }
- elsif ($value == 0x180) {
- print '<td colspan="11" class="X L Aramaic">mongolian';
- }
- elsif ($value == 0x18B) {
- print '<td colspan="5" class="X Xr L Syllabic">canadian+';
- }
- elsif ($value == 0x190) {
- print '<td colspan="5" class="X L Brahmic">limbu';
- }
- elsif ($value == 0x195) {
- print '<td colspan="4" class="X L Brahmic">tai le';
- }
- elsif ($value == 0x198) {
- print '<td colspan="6" class="X L Brahmic">new tai lue';
- }
- elsif ($value == 0x19E) {
- print '<td colspan="2" class="X L Brahmic Khmer" title="khmer symbols">km';
- }
- elsif ($value == 0x1A0) {
- print '<td colspan="2" class="X L Brahmic">lontara';
- }
- elsif ($value == 0x1A2) {
- print '<td colspan="9" class="X Xr L Brahmic">tai tham';
- }
- elsif ($value == 0x1AB) {
- print '<td colspan="5" class="">reserved';
- }
- elsif ($value == 0x1B0) {
- print '<td colspan="8" class="X L Brahmic">balinese';
- }
- elsif ($value == 0x1B8) {
- print '<td colspan="4" class="X L Brahmic">sundanese';
- }
- elsif ($value == 0x1BC) {
- print '<td colspan="4" class="X Xr L Brahmic">batak';
- }
- elsif ($value == 0x1C0) {
- print '<td colspan="5" class="X L Brahmic">lepcha';
- }
- elsif ($value == 0x1C5) {
- print '<td colspan="3" class="X L Alpha">ol chiki';
- }
- elsif ($value == 0x1C8) {
- print '<td colspan="5" class="">reserved';
- }
- elsif ($value == 0x1CD) {
- print '<td colspan="3" class="X Xr Brahmic">vedic';
- }
- elsif ($value == 0x1D0) {
- print '<td colspan="8" class="X L Latin">phonetic';
- }
- elsif ($value == 0x1D8) {
- print '<td colspan="4" class="X L Latin">phonetic+';
- }
- elsif ($value == 0x1DC) {
- print '<td colspan="4" class="X Mn">combining';
- }
- elsif ($value == 0x1E0) {
- print '<td colspan="16" class="X L Latin">latin extended additional';
- }
- elsif ($value == 0x1F0) {
- print '<td colspan="16" class="X L Greek">greek+';
- }
- elsif ($value == 0x200) {
- print '<td colspan="7" class="X Po">general punctuation';
- }
- elsif ($value == 0x207) {
- print '<td colspan="3" class="X Latin">suþscript'; # suth now means "sub and/or sup"
- }
- elsif ($value == 0x20A) {
- print '<td colspan="3" class="X Sc">currency';
- }
- elsif ($value == 0x20D) {
- print '<td colspan="3" class="X Mn">overlay';
- }
- elsif ($value == 0x210) {
- print '<td colspan="5" class="X So">letterlike';
- }
- elsif ($value == 0x215) {
- print '<td colspan="4" class="X Latin">number';
- }
- elsif ($value == 0x219) {
- print '<td colspan="7" class="X So">arrows';
- }
- elsif ($value == 0x220) {
- print '<td colspan="16" class="X Sm">mathematical symbols';
- }
- elsif ($value == 0x230) {
- print '<td colspan="16" class="X So">miscellaneous technical';
- }
- elsif ($value == 0x240) {
- print '<td colspan="4" class="X So">control';
- }
- elsif ($value == 0x244) {
- print '<td colspan="2" class="X So">OCR';
- }
- elsif ($value == 0x246) {
- print '<td colspan="10" class="X Latin">enclosed alphanumerics';
- }
- elsif ($value == 0x250) {
- print '<td colspan="8" class="X So">box drawing';
- }
- elsif ($value == 0x258) {
- print '<td colspan="2" class="X So">blocks';
- }
- elsif ($value == 0x25A) {
- print '<td colspan="6" class="X So">geometric shapes';
- }
- elsif ($value == 0x260) {
- print '<td colspan="16" class="X So">miscellaneous symbols';
- }
- elsif ($value == 0x270) {
- print '<td colspan="12" class="X So">dingbats';
- }
- elsif ($value == 0x27C) {
- print '<td colspan="3" class="X So">maths-A';
- }
- elsif ($value == 0x27F) {
- print '<td colspan="1" class="X So" title="supplemental arrows-A">arr';
- }
- elsif ($value == 0x280) {
- print '<td colspan="16" class="X L Alpha">braille';
- }
- elsif ($value == 0x290) {
- print '<td colspan="8" class="X So">supplemental arrows-B';
- }
- elsif ($value == 0x298) {
- print '<td colspan="8" class="X Sm">mathematical symbols-B';