database/postgres
1
0
Fork 0
mirror of https://github.com/postgres/postgres.git synced 2025-09-09 13:09:39 +03:00
Code Activity

Remove personal copyright now that file has been rewritten using

Browse Source 
existing *.pl conversion script.

Andreas 'ads' Scherbaum
This commit is contained in:
Bruce Momjian
2010-02-16 20:35:07 +00:00
parent 93a57c3b57
commit 346a721eed
1 changed files with 9 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files

20
src/backend/utils/mb/Unicode/UCS_to_GB18030.pl
View File

@@ -1,23 +1,19 @@
#! /usr/bin/perl #! /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 # Generate UTF-8 <--> GB18030 code conversion tables from
# map files provided by Unicode organization. # "ISO10646-GB18030.TXT"
# 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 format: # file format:
# GB18030 code in hex # GB18030 hex code
# UCS-2 code in hex # UCS-2 hex code
# # and Unicode name (not used in this script)
require "ucs2utf.pl"; require "ucs2utf.pl";
# first generate UTF-8 --> GB18030 table # first generate UTF-8 --> GB18030 table
$in_file = "ISO10646-GB18030.TXT"; $in_file = "ISO10646-GB18030.TXT";
@@ -45,6 +41,7 @@ while( <FILE> ){
} }
close( FILE ); close( FILE );
# #
# first, generate UTF8 --> GB18030 table # first, generate UTF8 --> GB18030 table
# #
@@ -66,6 +63,7 @@ for $index ( sort {$a <=> $b} keys( %array ) ){
print FILE "};\n"; print FILE "};\n";
close(FILE); close(FILE);
# #
# then generate GB18030 --> UTF8 table # then generate GB18030 --> UTF8 table
# #