|
2 | 2 | #
|
3 | 3 | # Copyright 2001 by PostgreSQL Global Development Group
|
4 | 4 | #
|
5 |
| -# $Id: UCS_to_EUC_JP.pl,v 1.1 2000/10/30 10:40:29 ishii Exp $ |
| 5 | +# $Id: UCS_to_EUC_JP.pl,v 1.2 2001/04/16 06:10:18 ishii Exp $ |
6 | 6 | #
|
7 | 7 | # Generate UTF-8 <--> EUC_JP code conversion tables from
|
8 | 8 | # map files provided by Unicode organization.
|
|
48 | 48 | ( $c, $u, $rest ) = split;
|
49 | 49 | $ucs = hex($u);
|
50 | 50 | $code = hex($c);
|
51 |
| - if( $code >= 0x80 && $ucs >= 0x100 ){ |
| 51 | + if( $code >= 0x80 && $ucs >= 0x0080 ){ |
52 | 52 | $utf = &ucs2utf($ucs);
|
53 | 53 | if( $array{ $utf } ne "" ){
|
54 | 54 | printf STDERR "Warning: duplicate unicode: %04x\n",$ucs;
|
|
77 | 77 | ( $s, $c, $u, $rest ) = split;
|
78 | 78 | $ucs = hex($u);
|
79 | 79 | $code = hex($c);
|
80 |
| - if( $code >= 0x80 && $ucs >= 0x100 ){ |
| 80 | + if( $code >= 0x80 && $ucs >= 0x0080 ){ |
81 | 81 | $utf = &ucs2utf($ucs);
|
82 | 82 | if( $array{ $utf } ne "" ){
|
83 | 83 | printf STDERR "Warning: duplicate unicode: %04x\n",$ucs;
|
|
105 | 105 | ( $c, $u, $rest ) = split;
|
106 | 106 | $ucs = hex($u);
|
107 | 107 | $code = hex($c);
|
108 |
| - if( $code >= 0x80 && $ucs >= 0x100 ){ |
| 108 | + if( $code >= 0x80 && $ucs >= 0x0080 ){ |
109 | 109 | $utf = &ucs2utf($ucs);
|
110 | 110 | if( $array{ $utf } ne "" ){
|
111 | 111 | printf STDERR "Warning: duplicate unicode: %04x\n",$ucs;
|
|
160 | 160 | ( $c, $u, $rest ) = split;
|
161 | 161 | $ucs = hex($u);
|
162 | 162 | $code = hex($c);
|
163 |
| - if( $code >= 0x80 && $ucs >= 0x100 ){ |
| 163 | + if( $code >= 0x80 && $ucs >= 0x0080 ){ |
164 | 164 | $utf = &ucs2utf($ucs);
|
165 | 165 | if( $array{ $code } ne "" ){
|
166 | 166 | printf STDERR "Warning: duplicate code: %04x\n",$ucs;
|
|
190 | 190 | ( $s, $c, $u, $rest ) = split;
|
191 | 191 | $ucs = hex($u);
|
192 | 192 | $code = hex($c);
|
193 |
| - if( $code >= 0x80 && $ucs >= 0x100 ){ |
| 193 | + if( $code >= 0x80 && $ucs >= 0x0080 ){ |
194 | 194 | $utf = &ucs2utf($ucs);
|
195 | 195 | if( $array{ $code } ne "" ){
|
196 | 196 | printf STDERR "Warning: duplicate code: %04x\n",$ucs;
|
|
219 | 219 | ( $c, $u, $rest ) = split;
|
220 | 220 | $ucs = hex($u);
|
221 | 221 | $code = hex($c);
|
222 |
| - if( $code >= 0x80 && $ucs >= 0x100 ){ |
| 222 | + if( $code >= 0x80 && $ucs >= 0x0080 ){ |
223 | 223 | $utf = &ucs2utf($ucs);
|
224 | 224 | if( $array{ $code } ne "" ){
|
225 | 225 | printf STDERR "Warning: duplicate code: %04x\n",$ucs;
|
|
0 commit comments