|
1 | 1 | #! /usr/bin/perl
|
2 | 2 | #
|
3 |
| -# Copyright2002 by Bill Huang |
| 3 | +# Copyright(c) 2007-2010, PostgreSQL Global Development Group |
4 | 4 | #
|
5 |
| -# $PostgreSQL: pgsql/src/backend/utils/mb/Unicode/UCS_to_GB18030.pl,v 1.5 2005/03/07 04:30:52 momjian Exp $ |
| 5 | +# $Id:UCS_to_GB18030.pl,v 1.6 2010/02/16 20:35:07 momjian Exp $ |
6 | 6 | #
|
7 | 7 | # Generate UTF-8 <--> GB18030 code conversion tables from
|
8 |
| -# map files provided by Unicode organization. |
9 |
| -# Unfortunately it is prohibited by the organization |
10 |
| -# to distribute the map files. So if you try to use this script, |
11 |
| -# you have to obtain ISO10646-GB18030.TXT from |
12 |
| -# the organization's ftp site. |
| 8 | +# "ISO10646-GB18030.TXT" |
13 | 9 | #
|
14 |
| -# ISO10646-GB18030.TXT format: |
15 |
| -# GB18030 code in hex |
16 |
| -# UCS-2 code in hex |
17 |
| -# # and Unicode name (not used in this script) |
| 10 | +# file format: |
| 11 | +#GB18030 hex code |
| 12 | +#UCS-2 hex code |
18 | 13 |
|
19 | 14 | require"ucs2utf.pl";
|
20 | 15 |
|
| 16 | + |
21 | 17 | # first generate UTF-8 --> GB18030 table
|
22 | 18 |
|
23 | 19 | $in_file ="ISO10646-GB18030.TXT";
|
|
45 | 41 | }
|
46 | 42 | close( FILE );
|
47 | 43 |
|
| 44 | + |
48 | 45 | #
|
49 | 46 | # first, generate UTF8 --> GB18030 table
|
50 | 47 | #
|
|
66 | 63 | print FILE"};\n";
|
67 | 64 | close(FILE);
|
68 | 65 |
|
| 66 | + |
69 | 67 | #
|
70 | 68 | # then generate GB18030 --> UTF8 table
|
71 | 69 | #
|
|