index 68dc87b49820097dce3a003d8d4ff8e3092cf574..3a381ad6150c9fc6922d737132cf3d6f16bccd58 100755 (executable)
#! /usr/bin/perl
#
-# Copyright 2002 by Bill Huang
+# Copyright (c) 2007-2010, PostgreSQL Global Development Group
#
-# $PostgreSQL: pgsql/src/backend/utils/mb/Unicode/UCS_to_GB18030.pl,v 1.5 2005年03月07日 04:30:52 momjian Exp $
+# $Id: UCS_to_GB18030.pl,v 1.6 2010年02月16日 20:35:07 momjian Exp $
#
# Generate UTF-8 <--> GB18030 code conversion tables from
-# map files provided by Unicode organization.
-# Unfortunately it is prohibited by the organization
-# to distribute the map files. So if you try to use this script,
-# you have to obtain ISO10646-GB18030.TXT from
-# the organization's ftp site.
+# "ISO10646-GB18030.TXT"
#
-# ISO10646-GB18030.TXT format:
-# GB18030 code in hex
-# UCS-2 code in hex
-# # and Unicode name (not used in this script)
+# file format:
+# GB18030 hex code
+# UCS-2 hex code
require "ucs2utf.pl";
+
# first generate UTF-8 --> GB18030 table
$in_file = "ISO10646-GB18030.TXT";
}
close( FILE );
+
#
# first, generate UTF8 --> GB18030 table
#
@@ -66,6 +63,7 @@ for $index ( sort {$a <=> $b} keys( %array ) ){
print FILE "};\n";
close(FILE);
+
#
# then generate GB18030 --> UTF8 table
#