53 lines
1.1 KiB
Perl
Executable File
53 lines
1.1 KiB
Perl
Executable File
#! /usr/bin/perl
|
|
#
|
|
# Copyright (c) 2007-2020, PostgreSQL Global Development Group
|
|
#
|
|
# src/backend/utils/mb/Unicode/UCS_to_GB18030.pl
|
|
#
|
|
# Generate UTF-8 <--> GB18030 code conversion tables from
|
|
# "gb-18030-2000.xml", obtained from
|
|
# http://source.icu-project.org/repos/icu/data/trunk/charset/data/xml/
|
|
#
|
|
# The lines we care about in the source file look like
|
|
# <a u="009A" b="81 30 83 36"/>
|
|
# where the "u" field is the Unicode code point in hex,
|
|
# and the "b" field is the hex byte sequence for GB18030
|
|
|
|
use strict;
|
|
use warnings;
|
|
|
|
use convutils;
|
|
|
|
my $this_script = 'src/backend/utils/mb/Unicode/UCS_to_GB18030.pl';
|
|
|
|
# Read the input
|
|
|
|
my $in_file = "gb-18030-2000.xml";
|
|
|
|
open(my $in, '<', $in_file) || die("cannot open $in_file");
|
|
|
|
my @mapping;
|
|
|
|
while (<$in>)
|
|
{
|
|
next if (!m/<a u="([0-9A-F]+)" b="([0-9A-F ]+)"/);
|
|
my ($u, $c) = ($1, $2);
|
|
$c =~ s/ //g;
|
|
my $ucs = hex($u);
|
|
my $code = hex($c);
|
|
if ($code >= 0x80 && $ucs >= 0x0080)
|
|
{
|
|
push @mapping,
|
|
{
|
|
ucs => $ucs,
|
|
code => $code,
|
|
direction => BOTH,
|
|
f => $in_file,
|
|
l => $.
|
|
};
|
|
}
|
|
}
|
|
close($in);
|
|
|
|
print_conversion_tables($this_script, "GB18030", \@mapping);
|