+++ /dev/null
-#!/usr/bin/perl
-
-# USAGE: perl big5.pl > big5.h
-
-# Requires:
-# - Unihan-3.2.0.txt.gz
-# - big5-iso.txt, found on
-# http://www.info.gov.hk/digital21/chi/hkscs/download/big5-iso.txt
-
-require "cjkcompat.pl";
-
-my $revhash=1501;
-$unihan = "Unihan-3.2.0.txt.gz";
-$hkscs = "big5-iso.txt";
-
-# Get hanzi maps
-open (SET, "gunzip -cd <${unihan} |") || die "${unihan}: $!\n";
-while (<SET>)
-{
- chomp;
- s/\#.*//;
-
- next unless /^U\+([0-9A-F]{4,5})\s+kBigFive\s+(....)/i;
-
- my ($unicode, $code)=("0x$1", "0x$2");
-
- eval "\$code=$code;";
- eval "\$unicode=$unicode;";
-
- next if $code == 0xA2CD; # See below.
-
- die if $code < 0 || $code > 65535;
-
- my $codeh= int($code/256);
- my $codel= $code % 256;
-
- &add($codeh,$codel,$unicode);
-}
-close SET;
-
-# Get HKSCS extension maps
-open (SET, $hkscs) || die "${hkscs}: $!\n";
-while (<SET>)
-{
- chomp;
- s/\#.*//;
-
- @_ = split(/\s+/, $_);
- next unless scalar(@_) == 4;
-
- my ($unicode, $code)=(hex($_[3]), hex($_[0]));
- next unless $code;
- die unless $unicode;
-
- # PUA
- ####next if 0xE000 <= $unicode && $unicode <= 0xF8FF;
-
- die if $code < 0 || $code > 65535;
-
- my $codeh= int($code/256);
- my $codel= $code % 256;
-
- &add($codeh,$codel,$unicode,1);
- $count++;
-}
-close SET;
-
-if ($count != 4818) {
- die "$count characters are found. HKSCS extension table has been updated. Check ${hkscs}.";
-}
-
-# Unihan-3.2.0 does not make mention of Big5 non-hanzi.
-# So manually add a converting map...
-#
-# Note:
-# non-HKSCS Map is based on:
-# http://wakaba-web.hp.infoseek.co.jp/table/big5-eten.txt
-
-&add(0xA1,0x40,0x3000); # IDEOGRAPHIC SPACE
-&add(0xA1,0x41,0xFF0C); # FULLWIDTH COMMA
-&add(0xA1,0x42,0x3001); # IDEOGRAPHIC COMMA
-&add(0xA1,0x43,0x3002); # IDEOGRAPHIC FULL STOP
-&add(0xA1,0x44,0xFF0E); # FULLWIDTH FULL STOP
-&add(0xA1,0x45,0x2027); # HYPHENATION POINT
-&add(0xA1,0x46,0xFF1B); # FULLWIDTH SEMICOLON
-&add(0xA1,0x47,0xFF1A); # FULLWIDTH COLON
-&add(0xA1,0x48,0xFF1F); # FULLWIDTH QUESTION MARK
-&add(0xA1,0x49,0xFF01); # FULLWIDTH EXCLAMATION MARK
-&add(0xA1,0x4A,0xFE30); # PRESENTATION FORM FOR VERTICAL TWO DOT LEADER
-&add(0xA1,0x4B,0x2026); # HORIZONTAL ELLIPSIS
-&add(0xA1,0x4C,0x2025); # TWO DOT LEADER
-&add(0xA1,0x4D,0xFE50); # SMALL COMMA
-&add(0xA1,0x4E,0xFE51); # SMALL IDEOGRAPHIC COMMA
-&add(0xA1,0x4F,0xFE52); # SMALL FULL STOP
-&add(0xA1,0x50,0x00B7); # MIDDLE DOT
-&add(0xA1,0x51,0xFE54); # SMALL SEMICOLON
-&add(0xA1,0x52,0xFE55); # SMALL COLON
-&add(0xA1,0x53,0xFE56); # SMALL QUESTION MARK
-&add(0xA1,0x54,0xFE57); # SMALL EXCLAMATION MARK
-&add(0xA1,0x55,0xFF5C); # FULLWIDTH VERTICAL LINE
-&add(0xA1,0x56,0x2013); # EN DASH
-&add(0xA1,0x57,0xFE31); # PRESENTATION FORM FOR VERTICAL EM DASH
-&add(0xA1,0x58,0x2014); # EM DASH
-&add(0xA1,0x59,0xFE33); # PRESENTATION FORM FOR VERTICAL LOW LINE
-&add(0xA1,0x5A,0x2574); # BOX DRAWINGS LIGHT LEFT
-&add(0xA1,0x5B,0xFE34); # PRESENTATION FORM FOR VERTICAL WAVY LOW LINE
-&add(0xA1,0x5C,0xFE4F); # WAVY LOW LINE
-&add(0xA1,0x5D,0xFF08); # FULLWIDTH LEFT PARENTHESIS
-&add(0xA1,0x5E,0xFF09); # FULLWIDTH RIGHT PARENTHESIS
-&add(0xA1,0x5F,0xFE35); # PRESENTATION FORM FOR VERTICAL LEFT PARENTHESIS
-&add(0xA1,0x60,0xFE36); # PRESENTATION FORM FOR VERTICAL RIGHT PARENTHESIS
-&add(0xA1,0x61,0xFF5B); # FULLWIDTH LEFT CURLY BRACKET
-&add(0xA1,0x62,0xFF5D); # FULLWIDTH RIGHT CURLY BRACKET
-&add(0xA1,0x63,0xFE37); # PRESENTATION FORM FOR VERTICAL LEFT CURLY BRACKET
-&add(0xA1,0x64,0xFE38); # PRESENTATION FORM FOR VERTICAL RIGHT CURLY BRACKET
-&add(0xA1,0x65,0x3014); # LEFT TORTOISE SHELL BRACKET
-&add(0xA1,0x66,0x3015); # RIGHT TORTOISE SHELL BRACKET
-&add(0xA1,0x67,0xFE39); # PRESENTATION FORM FOR VERTICAL LEFT TORTOISE SHELL BRACKET
-&add(0xA1,0x68,0xFE3A); # PRESENTATION FORM FOR VERTICAL RIGHT TORTOISE SHELL BRACKET
-&add(0xA1,0x69,0x3010); # LEFT BLACK LENTICULAR BRACKET
-&add(0xA1,0x6A,0x3011); # RIGHT BLACK LENTICULAR BRACKET
-&add(0xA1,0x6B,0xFE3B); # PRESENTATION FORM FOR VERTICAL LEFT BLACK LENTICULAR BRACKET
-&add(0xA1,0x6C,0xFE3C); # PRESENTATION FORM FOR VERTICAL RIGHT BLACK LENTICULAR BRACKET
-&add(0xA1,0x6D,0x300A); # LEFT DOUBLE ANGLE BRACKET
-&add(0xA1,0x6E,0x300B); # RIGHT DOUBLE ANGLE BRACKET
-&add(0xA1,0x6F,0xFE3D); # PRESENTATION FORM FOR VERTICAL LEFT DOUBLE ANGLE BRACKET
-&add(0xA1,0x70,0xFE3E); # PRESENTATION FORM FOR VERTICAL RIGHT DOUBLE ANGLE BRACKET
-&add(0xA1,0x71,0x3008); # LEFT ANGLE BRACKET
-&add(0xA1,0x72,0x3009); # RIGHT ANGLE BRACKET
-&add(0xA1,0x73,0xFE3F); # PRESENTATION FORM FOR VERTICAL LEFT ANGLE BRACKET
-&add(0xA1,0x74,0xFE40); # PRESENTATION FORM FOR VERTICAL RIGHT ANGLE BRACKET
-&add(0xA1,0x75,0x300C); # LEFT CORNER BRACKET
-&add(0xA1,0x76,0x300D); # RIGHT CORNER BRACKET
-&add(0xA1,0x77,0xFE41); # PRESENTATION FORM FOR VERTICAL LEFT CORNER BRACKET
-&add(0xA1,0x78,0xFE42); # PRESENTATION FORM FOR VERTICAL RIGHT CORNER BRACKET
-&add(0xA1,0x79,0x300E); # LEFT WHITE CORNER BRACKET
-&add(0xA1,0x7A,0x300F); # RIGHT WHITE CORNER BRACKET
-&add(0xA1,0x7B,0xFE43); # PRESENTATION FORM FOR VERTICAL LEFT WHITE CORNER BRACKET
-&add(0xA1,0x7C,0xFE44); # PRESENTATION FORM FOR VERTICAL RIGHT WHITE CORNER BRACKET
-&add(0xA1,0x7D,0xFE59); # SMALL LEFT PARENTHESIS
-&add(0xA1,0x7E,0xFE5A); # SMALL RIGHT PARENTHESIS
-&add(0xA1,0xA1,0xFE5B); # SMALL LEFT CURLY BRACKET
-&add(0xA1,0xA2,0xFE5C); # SMALL RIGHT CURLY BRACKET
-&add(0xA1,0xA3,0xFE5D); # SMALL LEFT TORTOISE SHELL BRACKET
-&add(0xA1,0xA4,0xFE5E); # SMALL RIGHT TORTOISE SHELL BRACKET
-&add(0xA1,0xA5,0x2018); # LEFT SINGLE QUOTATION MARK
-&add(0xA1,0xA6,0x2019); # RIGHT SINGLE QUOTATION MARK
-&add(0xA1,0xA7,0x201C); # LEFT DOUBLE QUOTATION MARK
-&add(0xA1,0xA8,0x201D); # RIGHT DOUBLE QUOTATION MARK
-&add(0xA1,0xA9,0x301D); # REVERSED DOUBLE PRIME QUOTATION MARK
-&add(0xA1,0xAA,0x301E); # DOUBLE PRIME QUOTATION MARK
-&add(0xA1,0xAB,0x2035); # REVERSED PRIME
-&add(0xA1,0xAC,0x2032); # PRIME
-&add(0xA1,0xAD,0xFF03); # FULLWIDTH NUMBER SIGN
-&add(0xA1,0xAE,0xFF06); # FULLWIDTH AMPERSAND
-&add(0xA1,0xAF,0xFF0A); # FULLWIDTH ASTERISK
-&add(0xA1,0xB0,0x203B); # REFERENCE MARK
-&add(0xA1,0xB1,0x00A7); # SECTION SIGN
-&add(0xA1,0xB2,0x3003); # DITTO MARK
-&add(0xA1,0xB3,0x25CB); # WHITE CIRCLE
-&add(0xA1,0xB4,0x25CF); # BLACK CIRCLE
-&add(0xA1,0xB5,0x25B3); # WHITE UP-POINTING TRIANGLE
-&add(0xA1,0xB6,0x25B2); # BLACK UP-POINTING TRIANGLE
-&add(0xA1,0xB7,0x25CE); # BULLSEYE
-&add(0xA1,0xB8,0x2606); # WHITE STAR
-&add(0xA1,0xB9,0x2605); # BLACK STAR
-&add(0xA1,0xBA,0x25C7); # WHITE DIAMOND
-&add(0xA1,0xBB,0x25C6); # BLACK DIAMOND
-&add(0xA1,0xBC,0x25A1); # WHITE SQUARE
-&add(0xA1,0xBD,0x25A0); # BLACK SQUARE
-&add(0xA1,0xBE,0x25BD); # WHITE DOWN-POINTING TRIANGLE
-&add(0xA1,0xBF,0x25BC); # BLACK DOWN-POINTING TRIANGLE
-&add(0xA1,0xC0,0x32A3); # CIRCLED IDEOGRAPH CORRECT
-&add(0xA1,0xC1,0x2105); # CARE OF
-&add(0xA1,0xC2,0x00AF); # MACRON
-&add(0xA1,0xC3,0xFFE3); # FULLWIDTH MACRON
-&add(0xA1,0xC4,0xFF3F); # FULLWIDTH LOW LINE
-&add(0xA1,0xC5,0x02CD); # MODIFIER LETTER LOW MACRON
-&add(0xA1,0xC6,0xFE49); # DASHED OVERLINE
-&add(0xA1,0xC7,0xFE4A); # CENTRELINE OVERLINE
-&add(0xA1,0xC8,0xFE4D); # DASHED LOW LINE
-&add(0xA1,0xC9,0xFE4E); # CENTRELINE LOW LINE
-&add(0xA1,0xCA,0xFE4B); # WAVY OVERLINE
-&add(0xA1,0xCB,0xFE4C); # DOUBLE WAVY OVERLINE
-&add(0xA1,0xCC,0xFE5F); # SMALL NUMBER SIGN
-&add(0xA1,0xCD,0xFE60); # SMALL AMPERSAND
-&add(0xA1,0xCE,0xFE61); # SMALL ASTERISK
-&add(0xA1,0xCF,0xFF0B); # FULLWIDTH PLUS SIGN
-&add(0xA1,0xD0,0xFF0D); # FULLWIDTH HYPHEN-MINUS
-&add(0xA1,0xD1,0x00D7); # MULTIPLICATION SIGN
-&add(0xA1,0xD2,0x00F7); # DIVISION SIGN
-&add(0xA1,0xD3,0x00B1); # PLUS-MINUS SIGN
-&add(0xA1,0xD4,0x221A); # SQUARE ROOT
-&add(0xA1,0xD5,0xFF1C); # FULLWIDTH LESS-THAN SIGN
-&add(0xA1,0xD6,0xFF1E); # FULLWIDTH GREATER-THAN SIGN
-&add(0xA1,0xD7,0xFF1D); # FULLWIDTH EQUALS SIGN
-&add(0xA1,0xD8,0x2266); # LESS-THAN OVER EQUAL TO
-&add(0xA1,0xD9,0x2267); # GREATER-THAN OVER EQUAL TO
-&add(0xA1,0xDA,0x2260); # NOT EQUAL TO
-&add(0xA1,0xDB,0x221E); # INFINITY
-&add(0xA1,0xDC,0x2252); # APPROXIMATELY EQUAL TO OR THE IMAGE OF
-&add(0xA1,0xDD,0x2261); # IDENTICAL TO
-&add(0xA1,0xDE,0xFE62); # SMALL PLUS SIGN
-&add(0xA1,0xDF,0xFE63); # SMALL HYPHEN-MINUS
-&add(0xA1,0xE0,0xFE64); # SMALL LESS-THAN SIGN
-&add(0xA1,0xE1,0xFE65); # SMALL GREATER-THAN SIGN
-&add(0xA1,0xE2,0xFE66); # SMALL EQUALS SIGN
-&add(0xA1,0xE3,0xFF5E); # FULLWIDTH TILDE
-&add(0xA1,0xE4,0x2229); # INTERSECTION
-&add(0xA1,0xE5,0x222A); # UNION
-&add(0xA1,0xE6,0x22A5); # UP TACK
-&add(0xA1,0xE7,0x2220); # ANGLE
-&add(0xA1,0xE8,0x221F); # RIGHT ANGLE
-&add(0xA1,0xE9,0x22BF); # RIGHT TRIANGLE
-&add(0xA1,0xEA,0x33D2); # SQUARE LOG
-&add(0xA1,0xEB,0x33D1); # SQUARE LN
-&add(0xA1,0xEC,0x222B); # INTEGRAL
-&add(0xA1,0xED,0x222E); # CONTOUR INTEGRAL
-&add(0xA1,0xEE,0x2235); # BECAUSE
-&add(0xA1,0xEF,0x2234); # THEREFORE
-&add(0xA1,0xF0,0x2640); # FEMALE SIGN
-&add(0xA1,0xF1,0x2642); # MALE SIGN
-&add(0xA1,0xF2,0x2295); # CIRCLED PLUS
-&add(0xA1,0xF3,0x2299); # CIRCLED DOT OPERATOR
-&add(0xA1,0xF4,0x2191); # UPWARDS ARROW
-&add(0xA1,0xF5,0x2193); # DOWNWARDS ARROW
-&add(0xA1,0xF6,0x2190); # LEFTWARDS ARROW
-&add(0xA1,0xF7,0x2192); # RIGHTWARDS ARROW
-&add(0xA1,0xF8,0x2196); # NORTH WEST ARROW
-&add(0xA1,0xF9,0x2197); # NORTH EAST ARROW
-&add(0xA1,0xFA,0x2199); # SOUTH WEST ARROW
-&add(0xA1,0xFB,0x2198); # SOUTH EAST ARROW
-&add(0xA1,0xFC,0x2225); # PARALLEL TO
-&add(0xA1,0xFD,0x2223); # DIVIDES
-&add(0xA1,0xFE,0xFF0F); # FULLWIDTH SOLIDUS
-&add(0xA2,0x40,0xFF3C); # FULLWIDTH REVERSE SOLIDUS
-&add(0xA2,0x41,0x2215); # DIVISION SLASH
-&add(0xA2,0x42,0xFE68); # SMALL REVERSE SOLIDUS
-&add(0xA2,0x43,0xFF04); # FULLWIDTH DOLLAR SIGN
-&add(0xA2,0x44,0xFFE5); # FULLWIDTH YEN SIGN
-&add(0xA2,0x45,0x3012); # POSTAL MARK
-&add(0xA2,0x46,0xFFE0); # FULLWIDTH CENT SIGN
-&add(0xA2,0x47,0xFFE1); # FULLWIDTH POUND SIGN
-&add(0xA2,0x48,0xFF05); # FULLWIDTH PERCENT SIGN
-&add(0xA2,0x49,0xFF20); # FULLWIDTH COMMERCIAL AT
-&add(0xA2,0x4A,0x2103); # DEGREE CELSIUS
-&add(0xA2,0x4B,0x2109); # DEGREE FAHRENHEIT
-&add(0xA2,0x4C,0xFE69); # SMALL DOLLAR SIGN
-&add(0xA2,0x4D,0xFE6A); # SMALL PERCENT SIGN
-&add(0xA2,0x4E,0xFE6B); # SMALL COMMERCIAL AT
-&add(0xA2,0x4F,0x33D5); # SQUARE MIL
-&add(0xA2,0x50,0x339C); # SQUARE MM
-&add(0xA2,0x51,0x339D); # SQUARE CM
-&add(0xA2,0x52,0x339E); # SQUARE KM
-&add(0xA2,0x53,0x33CE); # SQUARE KM CAPITAL
-&add(0xA2,0x54,0x33A1); # SQUARE M SQUARED
-&add(0xA2,0x55,0x338E); # SQUARE MG
-&add(0xA2,0x56,0x338F); # SQUARE KG
-&add(0xA2,0x57,0x33C4); # SQUARE CC
-&add(0xA2,0x58,0x00B0); # DEGREE SIGN
-# 0xA259-0xA261: <CJK>
-&add(0xA2,0x62,0x2581); # LOWER ONE EIGHTH BLOCK
-&add(0xA2,0x63,0x2582); # LOWER ONE QUARTER BLOCK
-&add(0xA2,0x64,0x2583); # LOWER THREE EIGHTHS BLOCK
-&add(0xA2,0x65,0x2584); # LOWER HALF BLOCK
-&add(0xA2,0x66,0x2585); # LOWER FIVE EIGHTHS BLOCK
-&add(0xA2,0x67,0x2586); # LOWER THREE QUARTERS BLOCK
-&add(0xA2,0x68,0x2587); # LOWER SEVEN EIGHTHS BLOCK
-&add(0xA2,0x69,0x2588); # FULL BLOCK
-&add(0xA2,0x6A,0x258F); # LEFT ONE EIGHTH BLOCK
-&add(0xA2,0x6B,0x258E); # LEFT ONE QUARTER BLOCK
-&add(0xA2,0x6C,0x258D); # LEFT THREE EIGHTHS BLOCK
-&add(0xA2,0x6D,0x258C); # LEFT HALF BLOCK
-&add(0xA2,0x6E,0x258B); # LEFT FIVE EIGHTHS BLOCK
-&add(0xA2,0x6F,0x258A); # LEFT THREE QUARTERS BLOCK
-&add(0xA2,0x70,0x2589); # LEFT SEVEN EIGHTHS BLOCK
-&add(0xA2,0x71,0x253C); # BOX DRAWINGS LIGHT VERTICAL AND HORIZONTAL
-&add(0xA2,0x72,0x2534); # BOX DRAWINGS LIGHT UP AND HORIZONTAL
-&add(0xA2,0x73,0x252C); # BOX DRAWINGS LIGHT DOWN AND HORIZONTAL
-&add(0xA2,0x74,0x2524); # BOX DRAWINGS LIGHT VERTICAL AND LEFT
-&add(0xA2,0x75,0x251C); # BOX DRAWINGS LIGHT VERTICAL AND RIGHT
-&add(0xA2,0x76,0x2594); # UPPER ONE EIGHTH BLOCK
-&add(0xA2,0x77,0x2500); # BOX DRAWINGS LIGHT HORIZONTAL
-&add(0xA2,0x78,0x2502); # BOX DRAWINGS LIGHT VERTICAL
-&add(0xA2,0x79,0x2595); # RIGHT ONE EIGHTH BLOCK
-&add(0xA2,0x7A,0x250C); # BOX DRAWINGS LIGHT DOWN AND RIGHT
-&add(0xA2,0x7B,0x2510); # BOX DRAWINGS LIGHT DOWN AND LEFT
-&add(0xA2,0x7C,0x2514); # BOX DRAWINGS LIGHT UP AND RIGHT
-&add(0xA2,0x7D,0x2518); # BOX DRAWINGS LIGHT UP AND LEFT
-
-# 0xA27E-0xA2A7:
-# Duplicated maps with HKSCS:2001 0xF9E9-0xF9EB,0xF9F9-0xF9FD
-&dup(0xA2,0x7E,0x256D); # BOX DRAWINGS LIGHT ARC DOWN AND RIGHT
-&dup(0xA2,0xA1,0x256E); # BOX DRAWINGS LIGHT ARC DOWN AND LEFT
-&dup(0xA2,0xA2,0x2570); # BOX DRAWINGS LIGHT ARC UP AND RIGHT
-&dup(0xA2,0xA3,0x256F); # BOX DRAWINGS LIGHT ARC UP AND LEFT
-&dup(0xA2,0xA4,0x2550); # BOX DRAWINGS DOUBLE HORIZONTAL
-&dup(0xA2,0xA5,0x255E); # BOX DRAWINGS VERTICAL SINGLE AND RIGHT DOUBLE
-&dup(0xA2,0xA6,0x256A); # BOX DRAWINGS VERTICAL SINGLE AND HORIZONTAL DOUBLE
-&dup(0xA2,0xA7,0x2561); # BOX DRAWINGS VERTICAL SINGLE AND LEFT DOUBLE
-
-&add(0xA2,0xA8,0x25E2); # BLACK LOWER RIGHT TRIANGLE
-&add(0xA2,0xA9,0x25E3); # BLACK LOWER LEFT TRIANGLE
-&add(0xA2,0xAA,0x25E5); # BLACK UPPER RIGHT TRIANGLE
-&add(0xA2,0xAB,0x25E4); # BLACK UPPER LEFT TRIANGLE
-&add(0xA2,0xAC,0x2571); # BOX DRAWINGS LIGHT DIAGONAL UPPER RIGHT TO LOWER LEFT
-&add(0xA2,0xAD,0x2572); # BOX DRAWINGS LIGHT DIAGONAL UPPER LEFT TO LOWER RIGHT
-&add(0xA2,0xAE,0x2573); # BOX DRAWINGS LIGHT DIAGONAL CROSS
-# FULLWIDTH DIGIT
-foreach ((0xAF..0xB8)) {
- &add(0xA2,$_,0xFF10+$_-0xAF);
-}
-# ROMAN NUMERAL
-foreach ((0xB9..0xC2)) {
- &add(0xA2,$_,0x2160+$_-0xB9);
-}
-# HANGZHOU NUMERAL
-foreach ((0xC3..0xCB)) {
- &add(0xA2,$_,0x3021+$_-0xC3);
-}
-# 0xA2CC-0xA2CE:
-# unified to CJK by original Big5 (and causes duplicated mapping) but they
-# might be mapped to same block as preceding code points (HANGZHOU NUMERAL).
-&add(0xA2,0xCC,0x3038); # HANGZHOU NUMERAL TEN
-&add(0xA2,0xCD,0x3039); # HANGZHOU NUMERAL TWENTY
-&add(0xA2,0xCE,0x303A); # HANGZHOU NUMERAL THIRTY
-# FULLWIDTH LATIN CAPITAL LETTER
-foreach ((0xCF..0xE8)) {
- &add(0xA2,$_,0xFF21+$_-0xCF);
-}
-# FULLWIDTH LATIN SMALL LETTER
-foreach ((0xE9..0xFE)) {
- &add(0xA2,$_,0xFF41+$_-0xE9);
-}
-foreach ((0x40..0x43)) {
- &add(0xA3,$_,0xFF57+$_-0x40);
-}
-&add(0xA3,0x44,0x0391); # GREEK CAPITAL LETTER ALPHA
-&add(0xA3,0x45,0x0392); # GREEK CAPITAL LETTER BETA
-&add(0xA3,0x46,0x0393); # GREEK CAPITAL LETTER GAMMA
-&add(0xA3,0x47,0x0394); # GREEK CAPITAL LETTER DELTA
-&add(0xA3,0x48,0x0395); # GREEK CAPITAL LETTER EPSILON
-&add(0xA3,0x49,0x0396); # GREEK CAPITAL LETTER ZETA
-&add(0xA3,0x4A,0x0397); # GREEK CAPITAL LETTER ETA
-&add(0xA3,0x4B,0x0398); # GREEK CAPITAL LETTER THETA
-&add(0xA3,0x4C,0x0399); # GREEK CAPITAL LETTER IOTA
-&add(0xA3,0x4D,0x039A); # GREEK CAPITAL LETTER KAPPA
-&add(0xA3,0x4E,0x039B); # GREEK CAPITAL LETTER LAMDA
-&add(0xA3,0x4F,0x039C); # GREEK CAPITAL LETTER MU
-&add(0xA3,0x50,0x039D); # GREEK CAPITAL LETTER NU
-&add(0xA3,0x51,0x039E); # GREEK CAPITAL LETTER XI
-&add(0xA3,0x52,0x039F); # GREEK CAPITAL LETTER OMICRON
-&add(0xA3,0x53,0x03A0); # GREEK CAPITAL LETTER PI
-&add(0xA3,0x54,0x03A1); # GREEK CAPITAL LETTER RHO
-&add(0xA3,0x55,0x03A3); # GREEK CAPITAL LETTER SIGMA
-&add(0xA3,0x56,0x03A4); # GREEK CAPITAL LETTER TAU
-&add(0xA3,0x57,0x03A5); # GREEK CAPITAL LETTER UPSILON
-&add(0xA3,0x58,0x03A6); # GREEK CAPITAL LETTER PHI
-&add(0xA3,0x59,0x03A7); # GREEK CAPITAL LETTER CHI
-&add(0xA3,0x5A,0x03A8); # GREEK CAPITAL LETTER PSI
-&add(0xA3,0x5B,0x03A9); # GREEK CAPITAL LETTER OMEGA
-&add(0xA3,0x5C,0x03B1); # GREEK SMALL LETTER ALPHA
-&add(0xA3,0x5D,0x03B2); # GREEK SMALL LETTER BETA
-&add(0xA3,0x5E,0x03B3); # GREEK SMALL LETTER GAMMA
-&add(0xA3,0x5F,0x03B4); # GREEK SMALL LETTER DELTA
-&add(0xA3,0x60,0x03B5); # GREEK SMALL LETTER EPSILON
-&add(0xA3,0x61,0x03B6); # GREEK SMALL LETTER ZETA
-&add(0xA3,0x62,0x03B7); # GREEK SMALL LETTER ETA
-&add(0xA3,0x63,0x03B8); # GREEK SMALL LETTER THETA
-&add(0xA3,0x64,0x03B9); # GREEK SMALL LETTER IOTA
-&add(0xA3,0x65,0x03BA); # GREEK SMALL LETTER KAPPA
-&add(0xA3,0x66,0x03BB); # GREEK SMALL LETTER LAMDA
-&add(0xA3,0x67,0x03BC); # GREEK SMALL LETTER MU
-&add(0xA3,0x68,0x03BD); # GREEK SMALL LETTER NU
-&add(0xA3,0x69,0x03BE); # GREEK SMALL LETTER XI
-&add(0xA3,0x6A,0x03BF); # GREEK SMALL LETTER OMICRON
-&add(0xA3,0x6B,0x03C0); # GREEK SMALL LETTER PI
-&add(0xA3,0x6C,0x03C1); # GREEK SMALL LETTER RHO
-&add(0xA3,0x6D,0x03C3); # GREEK SMALL LETTER SIGMA
-&add(0xA3,0x6E,0x03C4); # GREEK SMALL LETTER TAU
-&add(0xA3,0x6F,0x03C5); # GREEK SMALL LETTER UPSILON
-&add(0xA3,0x70,0x03C6); # GREEK SMALL LETTER PHI
-&add(0xA3,0x71,0x03C7); # GREEK SMALL LETTER CHI
-&add(0xA3,0x72,0x03C8); # GREEK SMALL LETTER PSI
-&add(0xA3,0x73,0x03C9); # GREEK SMALL LETTER OMEGA
-# BOPOMOFO LETTER
-foreach ((0x74..0x7E)) {
- &add(0xA3,$_,0x3105+$_-0x74);
-}
-foreach ((0xA1..0xBA)) {
- &add(0xA3,$_,0x3110+$_-0xA1);
-}
-&add(0xA3,0xBB,0x02D9); # DOT ABOVE
-&add(0xA3,0xBC,0x02C9); # MODIFIER LETTER MACRON
-&add(0xA3,0xBD,0x02CA); # MODIFIER LETTER ACUTE ACCENT
-&add(0xA3,0xBE,0x02C7); # CARON
-&add(0xA3,0xBF,0x02CB); # MODIFIER LETTER GRAVE ACCENT
-
-# 0xA3E1:
-# found in some vendor codepages for Big5 (e.g. CP950).
-&add(0xA3,0xE1,0x20AC); # EURO SIGN
-
-# 0xC6BF-0xC6D7:
-# Some implementations for Big5 (non-HKSCS) remove these code points
-# and Big5-HKSCS:2001 assigns other CJK characters.
-# So this range will not be mapped for Big5-ETen.
-
-# 0xC8A5-0xC8CC: ETen input codes; not mapped.
-
-
-# Following characters are not included in the HKSCS. However,
-# the code points are reserved as compatibility points for backward
-# compatibility.
-# cf. http://www.info.gov.hk/digital21/chi/hkscs/download/big5cmp.txt
-&dup(0x8E,0x69,$fwd{0xBA}{0xE6},1);
-&dup(0x8E,0x6F,$fwd{0xED}{0xCA},1);
-&dup(0x8E,0x7E,$fwd{0xA2}{0x61},1);
-&dup(0x8E,0xAB,$fwd{0xBA}{0xFC},1);
-&dup(0x8E,0xB4,$fwd{0xBF}{0xA6},1);
-&dup(0x8E,0xCD,$fwd{0xAA}{0xCC},1);
-&dup(0x8E,0xD0,$fwd{0xBF}{0xAE},1);
-&dup(0x8F,0x57,$fwd{0xB5}{0xD7},1);
-&dup(0x8F,0x69,$fwd{0xE3}{0xC8},1);
-&dup(0x8F,0x6E,$fwd{0xDB}{0x79},1);
-&dup(0x8F,0xCB,$fwd{0xBF}{0xCC},1);
-&dup(0x8F,0xCC,$fwd{0xA0}{0xD4},1);
-&dup(0x8F,0xFE,$fwd{0xB0}{0x5F},1);
-&dup(0x90,0x6D,$fwd{0xB3}{0xA3},1);
-&dup(0x90,0x7A,$fwd{0xF9}{0xD7},1);
-&dup(0x90,0xDC,$fwd{0xC0}{0x52},1);
-&dup(0x90,0xF1,$fwd{0xC5}{0x54},1);
-&dup(0x91,0xBF,$fwd{0xF1}{0xE3},1);
-&dup(0x92,0x44,$fwd{0x92}{0x42},1);
-&dup(0x92,0xAF,$fwd{0xA2}{0x59},1);
-&dup(0x92,0xB0,$fwd{0xA2}{0x5A},1);
-&dup(0x92,0xB1,$fwd{0xA2}{0x5C},1);
-&dup(0x92,0xB2,$fwd{0xA2}{0x5B},1);
-&dup(0x92,0xC8,$fwd{0xA0}{0x5F},1);
-&dup(0x92,0xD1,$fwd{0xE6}{0xAB},1);
-&dup(0x94,0x47,$fwd{0xD2}{0x56},1);
-&dup(0x94,0xCA,$fwd{0xE6}{0xD0},1);
-&dup(0x95,0xD9,$fwd{0xCA}{0x52},1);
-&dup(0x96,0x44,$fwd{0x9C}{0xE4},1);
-&dup(0x96,0xED,$fwd{0x96}{0xEE},1);
-&dup(0x96,0xFC,$fwd{0xE9}{0x59},1);
-&dup(0x9B,0x76,$fwd{0xEF}{0xF9},1);
-&dup(0x9B,0x78,$fwd{0xC5}{0xF7},1);
-&dup(0x9B,0x7B,$fwd{0xF5}{0xE8},1);
-&dup(0x9B,0xC6,$fwd{0xE8}{0xCD},1);
-&dup(0x9B,0xDE,$fwd{0xD0}{0xC0},1);
-&dup(0x9B,0xEC,$fwd{0xFD}{0x64},1);
-&dup(0x9B,0xF6,$fwd{0xBF}{0x47},1);
-&dup(0x9C,0x42,$fwd{0xEB}{0xC9},1);
-&dup(0x9C,0x53,$fwd{0xCD}{0xE7},1);
-&dup(0x9C,0x62,$fwd{0xC0}{0xE7},1);
-&dup(0x9C,0x68,$fwd{0xDC}{0x52},1);
-&dup(0x9C,0x6B,$fwd{0xF8}{0x6D},1);
-&dup(0x9C,0x77,$fwd{0xDB}{0x5D},1);
-&dup(0x9C,0xBC,$fwd{0xC9}{0x5C},1);
-&dup(0x9C,0xBD,$fwd{0xAF}{0xB0},1);
-&dup(0x9C,0xD0,$fwd{0xD4}{0xD1},1);
-&dup(0x9D,0x57,$fwd{0xE0}{0x7C},1);
-&dup(0x9D,0x5A,$fwd{0xB5}{0xAE},1);
-&dup(0x9D,0xC4,$fwd{0xA9}{0xE4},1);
-&dup(0x9E,0xA9,$fwd{0xAB}{0xEC},1);
-&dup(0x9E,0xEF,$fwd{0xDE}{0xCD},1);
-&dup(0x9E,0xFD,$fwd{0xC9}{0xFC},1);
-&dup(0x9F,0x60,$fwd{0xF9}{0xC4},1);
-&dup(0x9F,0x66,$fwd{0x91}{0xBE},1);
-&dup(0x9F,0xCB,$fwd{0xB9}{0xB0},1);
-&dup(0x9F,0xD8,$fwd{0x93}{0x61},1);
-&dup(0xA0,0x63,$fwd{0x8F}{0xB6},1);
-&dup(0xA0,0x77,$fwd{0xA9}{0xF0},1);
-&dup(0xA0,0xD5,$fwd{0x94}{0x7A},1);
-&dup(0xA0,0xDF,$fwd{0xDE}{0x72},1);
-&dup(0xA0,0xE4,$fwd{0x94}{0x55},1);
-&dup(0xFA,0x5F,$fwd{0xAD}{0xC5},1);
-&dup(0xFA,0x66,$fwd{0xB0}{0xB0},1);
-&dup(0xFA,0xBD,$fwd{0xA5}{0x5D},1);
-&dup(0xFA,0xC5,$fwd{0xA2}{0xCD},1);
-&dup(0xFA,0xD5,$fwd{0xAD}{0xEB},1);
-&dup(0xFB,0x48,$fwd{0x9D}{0xEF},1);
-&dup(0xFB,0xB8,$fwd{0xB4}{0x40},1);
-&dup(0xFB,0xF3,$fwd{0xC9}{0xDB},1);
-&dup(0xFB,0xF9,$fwd{0x9D}{0xFB},1);
-&dup(0xFC,0x4F,$fwd{0xD8}{0xF4},1);
-&dup(0xFC,0x6C,$fwd{0xA0}{0xDC},1);
-&dup(0xFC,0xB9,$fwd{0xBC}{0xB5},1);
-&dup(0xFC,0xE2,$fwd{0xB4}{0xB8},1);
-&dup(0xFC,0xF1,$fwd{0xA7}{0xFB},1);
-&dup(0xFD,0xB7,$fwd{0xCB}{0x58},1);
-&dup(0xFD,0xB8,$fwd{0xB4}{0xFC},1);
-&dup(0xFD,0xBB,$fwd{0xB4}{0xE4},1);
-&dup(0xFD,0xF1,$fwd{0xB5}{0x4E},1);
-&dup(0xFE,0x52,$fwd{0x99}{0x75},1);
-&dup(0xFE,0x6F,$fwd{0xB7}{0xEC},1);
-&dup(0xFE,0xAA,$fwd{0xA2}{0x60},1);
-&dup(0xFE,0xDD,$fwd{0xCF}{0xF1},1);
-
-
-sub add {
-local($codeh,$codel,$unicode, $ishkscs) = @_;
-
- my $code = $codeh*256+$codel;
- my $unicodehash= int($unicode % $revhash);
-
- if ($ishkscs) {
- die sprintf("0x%04X",$code) if $codeh < 0x88 || $codeh > 0xFE;
- } else {
- die sprintf("0x%04X",$code) if $codeh < 161 || $codeh > 249;
- }
- die if $codel < 64 || ($codel >= 128 && $codel < 161) || $codel >= 255;
-
- die unless $unicode;
-
- die sprintf("0x%04X->U+%04X is duplicated with 0x%04X. use dup()\n",$code,$unicode,$revmap{$unicode})
- if defined $revmap{$unicode};
-
- if (! defined $fwd{$codeh})
- {
- my %dummy;
-
- $fwd{$codeh}= \%dummy;
- }
-
- die sprintf("0x%04X->U+%04X is already mapped to U+%04X\n",$code,$unicode,$fwd{$codeh}{$codel})
- if defined $fwd{$codeh}{$codel};
-
- $fwd{$codeh}{$codel}=$unicode;
-
- if (! defined $rev[$unicodehash])
- {
- my @dummy;
-
- $rev[$unicodehash]= \@dummy;
- }
-
- my $r=$rev[$unicodehash];
-
- push @$r, "$unicode $code";
-
- $revmap{$unicode} = $code;
-}
-
-sub dup {
-local($codeh,$codel,$unicode,$ishkscs) = @_;
-
- my $code = $codeh*256+$codel;
- my $unicodehash= int($unicode % $revhash);
-
- if ($ishkscs) {
- die sprintf("0x%04X",$code) if $codeh < 0x88 || $codeh > 0xFE;
- } else {
- die sprintf("0x%04X",$code) if $codeh < 161 || $codeh > 249;
- }
- die if $codel < 64 || ($codel >= 128 && $codel < 161) || $codel >= 255;
-
- die unless $unicode;
-
- die sprintf("%04X->U+%04X is not duplicated. use add()\n",$code,$unicode)
- if ! defined $revmap{$unicode};
-
- if (! defined $fwd{$codeh})
- {
- my %dummy;
-
- $fwd{$codeh}= \%dummy;
- }
-
- $fwd{$codeh}{$codel}=$unicode;
-}
-
-
-# Add maps for CJK compatibility ideographs of Unicode.
-&add_cjkcompat(%compat_ksx1001);
-####&add_cjkcompat(%compat_big5);
-&add_cjkcompat(%compat_ibm32);
-&add_cjkcompat(%compat_jisx0213);
-####&add_cjkcompat(%compat_cns11643);
-
-sub add_cjkcompat {
-local(%compat) = @_;
- foreach (keys %compat) {
- if (defined $revmap{$compat{$_}}) {
- my $unicodehash = int($_ % $revhash);
- if (! defined $rev[$unicodehash])
- {
- my @dummy;
- $rev[$unicodehash]= \@dummy;
- }
- my $r=$rev[$unicodehash];
- push @$r, "$_ $revmap{$compat{$_}}";
- }
- }
-}
-
-
-print '
-/*
-** Copyright 2000 Double Precision, Inc.
-** See COPYING for distribution information.
-**
-** $Id: big5.pl,v 1.4 2004/02/08 04:59:14 mrsam Exp $
-** Non-hanzi and ETen / HKSCS extension support
-** by Hatuka*nezumi - IKEDA Soji <nezumi@jca.apc.org>.
-*/
-
-#include "unicode.h"
-';
-
-foreach (sort keys %fwd)
-{
- my $h=$_;
- my $l;
-
- printf ("static const unicode_char big5_%02x_lo[64]={", $h);
-
- for ($l=64; $l < 128; $l++)
- {
- print "\n" if ($l % 16) == 0;
- printf ("%d", $fwd{$h}{$l});
- print "," unless $l >= 127;
- }
- print "};\n";
-
- printf ("static const unicode_char big5_%02x_hi[94]={\n", $h);
-
- for ($l=161; $l < 255; $l++)
- {
- print "\n" if ($l % 16) == 0;
- printf ("%d", $fwd{$h}{$l});
- print "," unless $l >= 254;
- }
- print "};\n";
-}
-
-print "static const unsigned big5_revhash_size=$revhash;
-static const unicode_char big5_revtable_uc[]={\n";
-
-my $index=0;
-
-my $maxl=0;
-
-for ($i=0; $i<$revhash; $i++)
-{
- my $a= $rev[$i];
-
- $revindex[$i]=$index;
-
- my $v;
-
- my @aa=@$a;
-
- $maxl= $#aa if $#aa > $maxl;
-
- while (defined ($v=shift @aa))
- {
- print "," if $index > 0;
- print "\n" if $index && ($index % 16) == 0;
-
- $v =~ s/ .*//;
- print $v;
- ++$index;
- }
-}
-
-print "};\nstatic const unsigned big5_revtable_octets[]={\n";
-
-$index=0;
-for ($i=0; $i<$revhash; $i++)
-{
- my $a= $rev[$i];
-
- my $v;
-
- my @aa=@$a;
-
- while (defined ($v=shift @aa))
- {
- print "," if $index > 0;
- print "\n" if $index && ($index % 16) == 0;
-
- $v =~ s/.* //;
- print $v;
- ++$index;
- }
-}
-
-print "};\nstatic const unsigned big5_revtable_index[]={\n";
-
-for ($i=0; $i<$revhash; $i++)
-{
- print "," if $i > 0;
- print "\n" if $i && ($i % 16) == 0;
- print $revindex[$i];
-}
-
-print "};\n";
HCoop / hcoop / debian / courier-authlib.git / blobdiff