--- /dev/null
+#-------------------------------------------------------------------------
+#
+# Makefile--
+# Makefile for utils/mb/conversion_procs
+#
+# IDENTIFICATION
+# $Header: /cvsroot/pgsql/src/backend/utils/mb/conversion_procs/Makefile,v 1.1 2002/07/16 09:25:04 ishii Exp $
+#
+#-------------------------------------------------------------------------
+
+subdir = src/backend/utils/mb/conversion_procs
+top_builddir = ../../../../..
+include $(top_builddir)/src/Makefile.global
+
+SQLSCRIPT = conversion_create.sql
+
+DIRS = \
+ utf8_and_ascii utf8_and_iso8859_1 \
+ utf8_and_euc_jp utf8_and_euc_kr utf8_and_euc_cn utf8_and_euc_tw \
+ utf8_and_sjis utf8_and_big5 utf8_and_gbk utf8_and_gb18030 \
+ utf8_and_uhc utf8_and_johab utf8_and_tcvn utf8_and_iso8859 \
+ euc_jp_and_sjis euc_tw_and_big5
+
+# conversion_name source_encoding destination_encoding function object
+$(SQLSCRIPT): Makefile
+ @set \
+ utf8_to_ascii UNICODE SQL_ASCII utf8_to_ascii utf8_and_ascii \
+ ascii_to_utf8 SQL_ASCII UNICODE ascii_to_utf8 utf8_and_ascii \
+ utf8_to_iso8859_1 UNICODE LATIN1 utf8_to_iso8859_1 utf8_and_iso8859_1 \
+ iso8859_1_to_utf8 LATIN1 UNICODE iso8859_1_to_utf8 utf8_and_iso8859_1 \
+ euc_jp_to_utf8 EUC_JP UNICODE euc_jp_to_utf8 utf8_and_euc_jp \
+ utf8_to_euc_jp UNICODE EUC_JP utf8_to_euc_jp utf8_and_euc_jp \
+ euc_kr_to_utf8 EUC_KR UNICODE euc_kr_to_utf8 utf8_and_euc_kr \
+ utf8_to_euc_kr UNICODE EUC_KR utf8_to_euc_kr utf8_and_euc_kr \
+ euc_cn_to_utf8 EUC_CN UNICODE euc_cn_to_utf8 utf8_and_euc_cn \
+ utf8_to_euc_cn UNICODE EUC_CN utf8_to_euc_cn utf8_and_euc_cn \
+ euc_tw_to_utf8 EUC_TW UNICODE euc_tw_to_utf8 utf8_and_euc_tw \
+ utf8_to_euc_tw UNICODE EUC_TW utf8_to_euc_tw utf8_and_euc_tw \
+ sjis_to_utf8 SJIS UNICODE sjis_to_utf8 utf8_and_sjis \
+ utf8_to_sjis UNICODE SJIS utf8_to_sjis utf8_and_sjis \
+ big5_to_utf8 BIG5 UNICODE big5_to_utf8 utf8_and_big5 \
+ utf8_to_big5 UNICODE BIG5 utf8_to_big5 utf8_and_big5 \
+ gbk_to_utf8 GBK UNICODE gbk_to_utf8 utf8_and_gbk \
+ utf8_to_gbk UNICODE GBK utf8_to_gbk utf8_and_gbk \
+ gb18030_to_utf8 GB18030 UNICODE gb18030_to_utf8 utf8_and_gb18030 \
+ utf8_to_gb18030 UNICODE GB18030 utf8_to_gb18030 utf8_and_gb18030 \
+ uhc_to_utf8 UHC UNICODE uhc_to_utf8 utf8_and_uhc \
+ utf8_to_uhc UNICODE UHC utf8_to_uhc utf8_and_uhc \
+ johab_to_utf8 JOHAB UNICODE johab_to_utf8 utf8_and_johab \
+ utf8_to_johab UNICODE JOHAB utf8_to_johab utf8_and_johab \
+ tcvn_to_utf8 TCVN UNICODE tcvn_to_utf8 utf8_and_tcvn \
+ utf8_to_tcvn UNICODE TCVN utf8_to_tcvn utf8_and_tcvn \
+ utf8_to_iso8859_2 UNICODE LATIN2 utf8_to_iso8859 utf8_and_iso8859 \
+ iso8859_2_to_utf8 LATIN2 UNICODE iso8859_to_utf8 utf8_and_iso8859 \
+ utf8_to_iso8859_3 UNICODE LATIN3 utf8_to_iso8859 utf8_and_iso8859 \
+ iso8859_3_to_utf8 LATIN3 UNICODE iso8859_to_utf8 utf8_and_iso8859 \
+ utf8_to_iso8859_4 UNICODE LATIN4 utf8_to_iso8859 utf8_and_iso8859 \
+ iso8859_4_to_utf8 LATIN4 UNICODE iso8859_to_utf8 utf8_and_iso8859 \
+ utf8_to_iso8859_9 UNICODE LATIN5 utf8_to_iso8859 utf8_and_iso8859 \
+ iso8859_9_to_utf8 LATIN5 UNICODE iso8859_to_utf8 utf8_and_iso8859 \
+ utf8_to_iso8859_10 UNICODE LATIN6 utf8_to_iso8859 utf8_and_iso8859 \
+ iso8859_10_to_utf8 LATIN6 UNICODE iso8859_to_utf8 utf8_and_iso8859 \
+ utf8_to_iso8859_13 UNICODE LATIN7 utf8_to_iso8859 utf8_and_iso8859 \
+ iso8859_13_to_utf8 LATIN7 UNICODE iso8859_to_utf8 utf8_and_iso8859 \
+ utf8_to_iso8859_14 UNICODE LATIN8 utf8_to_iso8859 utf8_and_iso8859 \
+ iso8859_14_to_utf8 LATIN8 UNICODE iso8859_to_utf8 utf8_and_iso8859 \
+ utf8_to_iso8859_15 UNICODE LATIN9 utf8_to_iso8859 utf8_and_iso8859 \
+ iso8859_15_to_utf8 LATIN9 UNICODE iso8859_to_utf8 utf8_and_iso8859 \
+ utf8_to_iso8859_16 UNICODE LATIN10 utf8_to_iso8859 utf8_and_iso8859 \
+ iso8859_16_to_utf8 LATIN10 UNICODE iso8859_to_utf8 utf8_and_iso8859 \
+ utf8_to_iso8859_5 UNICODE ISO-8859-5 utf8_to_iso8859 utf8_and_iso8859 \
+ iso8859_5_to_utf8 ISO-8859-5 UNICODE iso8859_to_utf8 utf8_and_iso8859 \
+ utf8_to_iso8859_6 UNICODE ISO-8859-6 utf8_to_iso8859 utf8_and_iso8859 \
+ iso8859_6_to_utf8 ISO-8859-6 UNICODE iso8859_to_utf8 utf8_and_iso8859 \
+ utf8_to_iso8859_7 UNICODE ISO-8859-7 utf8_to_iso8859 utf8_and_iso8859 \
+ iso8859_7_to_utf8 ISO-8859-7 UNICODE iso8859_to_utf8 utf8_and_iso8859 \
+ utf8_to_iso8859_8 UNICODE ISO-8859-8 utf8_to_iso8859 utf8_and_iso8859 \
+ iso8859_8_to_utf8 ISO-8859-8 UNICODE iso8859_to_utf8 utf8_and_iso8859 \
+ euc_jp_to_sjis EUC_JP SJIS euc_jp_to_sjis euc_jp_and_sjis \
+ sjis_to_euc_jp SJIS EUC_JP sjis_to_euc_jp euc_jp_and_sjis \
+ euc_jp_to_mic EUC_JP MULE_INTERNAL euc_jp_to_mic euc_jp_and_sjis \
+ sjis_to_mic SJIS MULE_INTERNAL sjis_to_mic euc_jp_and_sjis \
+ mic_to_euc_jp MULE_INTERNAL EUC_JP mic_to_euc_jp euc_jp_and_sjis \
+ mic_to_sjis MULE_INTERNAL SJIS mic_to_sjis euc_jp_and_sjis \
+ euc_tw_to_big5 EUC_TW BIG5 euc_tw_to_big5 euc_tw_and_big5 \
+ big5_to_euc_tw BIG5 EUC_TW big5_to_euc_tw euc_tw_and_big5 \
+ euc_tw_to_mic EUC_TW MULE_INTERNAL euc_tw_to_mic euc_tw_and_big5 \
+ big5_to_mic BIG5 MULE_INTERNAL big5_to_mic euc_tw_and_big5 \
+ mic_to_euc_tw MULE_INTERNAL EUC_TW mic_to_euc_tw euc_tw_and_big5 \
+ mic_to_big5 MULE_INTERNAL BIG5 mic_to_big5 euc_tw_and_big5 \
+ ; \
+ while [ "$$#" -gt 0 ] ; \
+ do \
+ name=$$1;shift; \
+ se=$$1;shift; \
+ de=$$1; shift; \
+ func=$$1; shift; \
+ obj=$$1; shift; \
+ echo "-- $$se --> $$de"; \
+ echo "CREATE OR REPLACE FUNCTION $$func (INTEGER, INTEGER, OPAQUE, OPAQUE, INTEGER) RETURNS INTEGER AS '$$"libdir"/$$obj', '$$func' LANGUAGE 'c';"; \
+ echo "DROP CONVERSION pg_catalog.$$name;"; \
+ echo "CREATE DEFAULT CONVERSION pg_catalog.$$name FOR '$$se' TO '$$de' FROM $$func;"; \
+ done > $@
+
+install:
+ $(INSTALL_DATA) $(SQLSCRIPT) $(datadir)
+ @for dir in $(DIRS); do $(MAKE) -C $$dir $@ || exit; done
+
+all: $(SQLSCRIPT)
+ @for dir in $(DIRS); do $(MAKE) -C $$dir $@ || exit; done
+
+clean:
+ $(RM) $(SQLSCRIPT)
+ @for dir in $(DIRS); do $(MAKE) -C $$dir $@; done
+
+distclean maintainer-clean:
+ $(RM) $(SQLSCRIPT)
+ @for dir in $(DIRS); do $(MAKE) -C $$dir $@; done
--- /dev/null
+#-------------------------------------------------------------------------
+#
+# $Id: Makefile,v 1.1 2002/07/16 09:25:05 ishii Exp $
+#
+#-------------------------------------------------------------------------
+top_builddir = ../../../../../..
+include $(top_builddir)/src/Makefile.global
+
+NAME := euc_jp_and_sjis
+
+include ../proc.mk
--- /dev/null
+/*-------------------------------------------------------------------------
+ *
+ * EUC_JP, SJIS and MULE_INTERNAL
+ *
+ * Portions Copyright (c) 1996-2002, PostgreSQL Global Development Group
+ * Portions Copyright (c) 1994, Regents of the University of California
+ *
+ * IDENTIFICATION
+ * $Header: /cvsroot/pgsql/src/backend/utils/mb/conversion_procs/euc_jp_and_sjis/euc_jp_and_sjis.c,v 1.1 2002/07/16 09:25:05 ishii Exp $
+ *
+ *-------------------------------------------------------------------------
+ */
+
+#include "postgres.h"
+#include "fmgr.h"
+#include "mb/pg_wchar.h"
+
+/*
+ * SJIS alternative code.
+ * this code is used if a mapping EUC -> SJIS is not defined.
+ */
+#define PGSJISALTCODE 0x81ac
+#define PGEUCALTCODE 0xa2ae
+
+/*
+ * conversion table between SJIS UDC (IBM kanji) and EUC_JP
+ */
+#include "sjis.map"
+
+#define ENCODING_GROWTH_RATE 4
+
+PG_FUNCTION_INFO_V1(euc_jp_to_sjis)
+PG_FUNCTION_INFO_V1(sjis_to_euc_jp)
+PG_FUNCTION_INFO_V1(euc_jp_to_mic)
+PG_FUNCTION_INFO_V1(mic_to_euc_jp)
+PG_FUNCTION_INFO_V1(sjis_to_mic)
+PG_FUNCTION_INFO_V1(mic_to_sjis)
+
+extern Datum euc_jp_to_sjis(PG_FUNCTION_ARGS);
+extern Datum sjis_to_euc_jp(PG_FUNCTION_ARGS);
+extern Datum euc_jp_to_mic(PG_FUNCTION_ARGS);
+extern Datum mic_to_euc_jp(PG_FUNCTION_ARGS);
+extern Datum sjis_to_mic(PG_FUNCTION_ARGS);
+extern Datum mic_to_sjis(PG_FUNCTION_ARGS);
+
+/* ----------
+ * conv_proc(
+ * INTEGER, -- source encoding id
+ * INTEGER, -- destination encoding id
+ * OPAQUE, -- source string (null terminated C string)
+ * OPAQUE, -- destination string (null terminated C string)
+ * INTEGER -- source string length
+ * ) returns INTEGER; -- dummy. returns nothing, actually.
+ * ----------
+ */
+
+static void sjis2mic(unsigned char *sjis, unsigned char *p, int len);
+static void mic2sjis(unsigned char *mic, unsigned char *p, int len);
+static void euc_jp2mic(unsigned char *euc, unsigned char *p, int len);
+static void mic2euc_jp(unsigned char *mic, unsigned char *p, int len);
+
+Datum
+euc_jp_to_sjis(PG_FUNCTION_ARGS)
+{
+ unsigned char *src = PG_GETARG_CSTRING(2);
+ unsigned char *dest = PG_GETARG_CSTRING(3);
+ int len = PG_GETARG_INT32(4);
+ unsigned char *buf;
+
+ Assert(PG_GETARG_INT32(0) == PG_EUC_JP);
+ Assert(PG_GETARG_INT32(1) == PG_SJIS);
+ Assert(len > 0);
+
+ buf = palloc(len * ENCODING_GROWTH_RATE);
+ euc_jp2mic(src, buf, len);
+ mic2sjis(buf, dest, strlen(buf));
+ pfree(buf);
+
+ PG_RETURN_INT32(0);
+}
+
+Datum
+sjis_to_euc_jp(PG_FUNCTION_ARGS)
+{
+ unsigned char *src = PG_GETARG_CSTRING(2);
+ unsigned char *dest = PG_GETARG_CSTRING(3);
+ int len = PG_GETARG_INT32(4);
+ unsigned char *buf;
+
+ Assert(PG_GETARG_INT32(0) == PG_SJIS);
+ Assert(PG_GETARG_INT32(1) == PG_EUC_JP);
+ Assert(len > 0);
+
+ buf = palloc(len * ENCODING_GROWTH_RATE);
+ sjis2mic(src, buf, len);
+ mic2euc_jp(buf, dest, strlen(buf));
+ pfree(buf);
+
+ PG_RETURN_INT32(0);
+}
+
+Datum
+euc_jp_to_mic(PG_FUNCTION_ARGS)
+{
+ unsigned char *src = PG_GETARG_CSTRING(2);
+ unsigned char *dest = PG_GETARG_CSTRING(3);
+ int len = PG_GETARG_INT32(4);
+
+ Assert(PG_GETARG_INT32(0) == PG_EUC_JP);
+ Assert(PG_GETARG_INT32(1) == PG_MULE_INTERNAL);
+ Assert(len > 0);
+
+ euc_jp2mic(src, dest, len);
+
+ PG_RETURN_INT32(0);
+}
+
+Datum
+mic_to_euc_jp(PG_FUNCTION_ARGS)
+{
+ unsigned char *src = PG_GETARG_CSTRING(2);
+ unsigned char *dest = PG_GETARG_CSTRING(3);
+ int len = PG_GETARG_INT32(4);
+
+ Assert(PG_GETARG_INT32(0) == PG_MULE_INTERNAL);
+ Assert(PG_GETARG_INT32(1) == PG_EUC_JP);
+ Assert(len > 0);
+
+ mic2sjis(src, dest, len);
+
+ PG_RETURN_INT32(0);
+}
+
+Datum
+sjis_to_mic(PG_FUNCTION_ARGS)
+{
+ unsigned char *src = PG_GETARG_CSTRING(2);
+ unsigned char *dest = PG_GETARG_CSTRING(3);
+ int len = PG_GETARG_INT32(4);
+
+ Assert(PG_GETARG_INT32(0) == PG_SJIS);
+ Assert(PG_GETARG_INT32(1) == PG_MULE_INTERNAL);
+ Assert(len > 0);
+
+ sjis2mic(src, dest, len);
+
+ PG_RETURN_INT32(0);
+}
+
+Datum
+mic_to_sjis(PG_FUNCTION_ARGS)
+{
+ unsigned char *src = PG_GETARG_CSTRING(2);
+ unsigned char *dest = PG_GETARG_CSTRING(3);
+ int len = PG_GETARG_INT32(4);
+
+ Assert(PG_GETARG_INT32(0) == PG_MULE_INTERNAL);
+ Assert(PG_GETARG_INT32(1) == PG_SJIS);
+ Assert(len > 0);
+
+ mic2sjis(src, dest, len);
+
+ PG_RETURN_INT32(0);
+}
+
+/*
+ * SJIS ---> MIC
+ */
+static void
+sjis2mic(unsigned char *sjis, unsigned char *p, int len)
+{
+ int c1,
+ c2,
+/* Eiji Tokuya patched begin */
+ i,
+ k,
+ k2;
+
+/* Eiji Tokuya patched end */
+ while (len > 0 && (c1 = *sjis++))
+ {
+ if (c1 >= 0xa1 && c1 <= 0xdf)
+ {
+ /* JIS X0201 (1 byte kana) */
+ len--;
+ *p++ = LC_JISX0201K;
+ *p++ = c1;
+ }
+ else if (c1 > 0x7f)
+ {
+ /*
+ * JIS X0208, X0212, user defined extended characters
+ */
+ c2 = *sjis++;
+ k = (c1 << 8) + c2;
+/* Eiji Tokuya patched begin */
+ if (k >= 0xed40 && k < 0xf040)
+ {
+ /* NEC selection IBM kanji */
+ for (i = 0;; i++)
+ {
+ k2 = ibmkanji[i].nec;
+ if (k2 == 0xffff)
+ break;
+ if (k2 == k)
+ {
+ k = ibmkanji[i].sjis;
+ c1 = (k >> 8) & 0xff;
+ c2 = k & 0xff;
+ }
+ }
+ }
+
+ if (k < 0xeb3f)
+/* Eiji Tokuya patched end */
+ {
+ /* JIS X0208 */
+ len -= 2;
+ *p++ = LC_JISX0208;
+ *p++ = ((c1 & 0x3f) << 1) + 0x9f + (c2 > 0x9e);
+ *p++ = c2 + ((c2 > 0x9e) ? 2 : 0x60) + (c2 < 0x80);
+ }
+/* Eiji Tokuya patched begin */
+ else if ((k >= 0xeb40 && k < 0xf040) || (k >= 0xfc4c && k <= 0xfcfc))
+ {
+ /* NEC selection IBM kanji - Other undecided justice */
+/* Eiji Tokuya patched end */
+ *p++ = LC_JISX0208;
+ *p++ = PGEUCALTCODE >> 8;
+ *p++ = PGEUCALTCODE & 0xff;
+ }
+ else if (k >= 0xf040 && k < 0xf540)
+ {
+ /*
+ * UDC1 mapping to X0208 85 ku - 94 ku JIS code 0x7521 -
+ * 0x7e7e EUC 0xf5a1 - 0xfefe
+ */
+ len -= 2;
+ *p++ = LC_JISX0208;
+ c1 -= 0x6f;
+ *p++ = ((c1 & 0x3f) << 1) + 0xf3 + (c2 > 0x9e);
+ *p++ = c2 + ((c2 > 0x9e) ? 2 : 0x60) + (c2 < 0x80);
+ }
+ else if (k >= 0xf540 && k < 0xfa40)
+ {
+ /*
+ * UDC2 mapping to X0212 85 ku - 94 ku JIS code 0x7521 -
+ * 0x7e7e EUC 0x8ff5a1 - 0x8ffefe
+ */
+ len -= 2;
+ *p++ = LC_JISX0212;
+ c1 -= 0x74;
+ *p++ = ((c1 & 0x3f) << 1) + 0xf3 + (c2 > 0x9e);
+ *p++ = c2 + ((c2 > 0x9e) ? 2 : 0x60) + (c2 < 0x80);
+ }
+ else if (k >= 0xfa40)
+ {
+ /*
+ * mapping IBM kanji to X0208 and X0212
+ *
+ */
+ len -= 2;
+ for (i = 0;; i++)
+ {
+ k2 = ibmkanji[i].sjis;
+ if (k2 == 0xffff)
+ break;
+ if (k2 == k)
+ {
+ k = ibmkanji[i].euc;
+ if (k >= 0x8f0000)
+ {
+ *p++ = LC_JISX0212;
+ *p++ = 0x80 | ((k & 0xff00) >> 8);
+ *p++ = 0x80 | (k & 0xff);
+ }
+ else
+ {
+ *p++ = LC_JISX0208;
+ *p++ = 0x80 | (k >> 8);
+ *p++ = 0x80 | (k & 0xff);
+ }
+ }
+ }
+ }
+ }
+ else
+ { /* should be ASCII */
+ len--;
+ *p++ = c1;
+ }
+ }
+ *p = '\0';
+}
+
+/*
+ * MIC ---> SJIS
+ */
+static void
+mic2sjis(unsigned char *mic, unsigned char *p, int len)
+{
+ int c1,
+ c2,
+ k;
+
+ while (len > 0 && (c1 = *mic))
+ {
+ len -= pg_mic_mblen(mic++);
+
+ if (c1 == LC_JISX0201K)
+ *p++ = *mic++;
+ else if (c1 == LC_JISX0208)
+ {
+ c1 = *mic++;
+ c2 = *mic++;
+ k = (c1 << 8) | (c2 & 0xff);
+ if (k >= 0xf5a1)
+ {
+ /* UDC1 */
+ c1 -= 0x54;
+ *p++ = ((c1 - 0xa1) >> 1) + ((c1 < 0xdf) ? 0x81 : 0xc1) + 0x6f;
+ }
+ else
+ *p++ = ((c1 - 0xa1) >> 1) + ((c1 < 0xdf) ? 0x81 : 0xc1);
+ *p++ = c2 - ((c1 & 1) ? ((c2 < 0xe0) ? 0x61 : 0x60) : 2);
+ }
+ else if (c1 == LC_JISX0212)
+ {
+ int i,
+ k2;
+
+ c1 = *mic++;
+ c2 = *mic++;
+ k = c1 << 8 | c2;
+ if (k >= 0xf5a1)
+ {
+ /* UDC2 */
+ c1 -= 0x54;
+ *p++ = ((c1 - 0xa1) >> 1) + ((c1 < 0xdf) ? 0x81 : 0xc1) + 0x74;
+ *p++ = c2 - ((c1 & 1) ? ((c2 < 0xe0) ? 0x61 : 0x60) : 2);
+ }
+ else
+ {
+ /* IBM kanji */
+ for (i = 0;; i++)
+ {
+ k2 = ibmkanji[i].euc & 0xffff;
+ if (k2 == 0xffff)
+ {
+ *p++ = PGSJISALTCODE >> 8;
+ *p++ = PGSJISALTCODE & 0xff;
+ break;
+ }
+ if (k2 == k)
+ {
+ k = ibmkanji[i].sjis;
+ *p++ = k >> 8;
+ *p++ = k & 0xff;
+ break;
+ }
+ }
+ }
+ }
+ else if (c1 > 0x7f)
+ {
+ /* cannot convert to SJIS! */
+ *p++ = PGSJISALTCODE >> 8;
+ *p++ = PGSJISALTCODE & 0xff;
+ }
+ else
+ { /* should be ASCII */
+ *p++ = c1;
+ }
+ }
+ *p = '\0';
+}
+
+/*
+ * EUC_JP ---> MIC
+ */
+static void
+euc_jp2mic(unsigned char *euc, unsigned char *p, int len)
+{
+ int c1;
+
+ while (len > 0 && (c1 = *euc++))
+ {
+ if (c1 == SS2)
+ { /* 1 byte kana? */
+ len -= 2;
+ *p++ = LC_JISX0201K;
+ *p++ = *euc++;
+ }
+ else if (c1 == SS3)
+ { /* JIS X0212 kanji? */
+ len -= 3;
+ *p++ = LC_JISX0212;
+ *p++ = *euc++;
+ *p++ = *euc++;
+ }
+ else if (c1 & 0x80)
+ { /* kanji? */
+ len -= 2;
+ *p++ = LC_JISX0208;
+ *p++ = c1;
+ *p++ = *euc++;
+ }
+ else
+ { /* should be ASCII */
+ len--;
+ *p++ = c1;
+ }
+ }
+ *p = '\0';
+}
+
+/*
+ * MIC ---> EUC_JP
+ */
+static void
+mic2euc_jp(unsigned char *mic, unsigned char *p, int len)
+{
+ int c1;
+
+ while (len > 0 && (c1 = *mic))
+ {
+ len -= pg_mic_mblen(mic++);
+
+ if (c1 == LC_JISX0201K)
+ {
+ *p++ = SS2;
+ *p++ = *mic++;
+ }
+ else if (c1 == LC_JISX0212)
+ {
+ *p++ = SS3;
+ *p++ = *mic++;
+ *p++ = *mic++;
+ }
+ else if (c1 == LC_JISX0208)
+ {
+ *p++ = *mic++;
+ *p++ = *mic++;
+ }
+ else if (c1 > 0x7f)
+ { /* cannot convert to EUC_JP! */
+ mic--;
+ pg_print_bogus_char(&mic, &p);
+ }
+ else
+ { /* should be ASCII */
+ *p++ = c1;
+ }
+ }
+ *p = '\0';
+}
--- /dev/null
+static struct
+{
+ unsigned short int nec; /* SJIS UDC (NEC selection IBM kanji) */
+ unsigned short int sjis; /* SJIS UDC (IBM kanji) */
+ int euc; /* EUC_JP */
+} ibmkanji[] = {
+{ 0xEEEF , 0xfa40 , 0x8ff3f3 },
+{ 0xEEF0 , 0xfa41 , 0x8ff3f4 },
+{ 0xEEF1 , 0xfa42 , 0x8ff3f5 },
+{ 0xEEF2 , 0xfa43 , 0x8ff3f6 },
+{ 0xEEF3 , 0xfa44 , 0x8ff3f7 },
+{ 0xEEF4 , 0xfa45 , 0x8ff3f8 },
+{ 0xEEF5 , 0xfa46 , 0x8ff3f9 },
+{ 0xEEF6 , 0xfa47 , 0x8ff3fa },
+{ 0xEEF7 , 0xfa48 , 0x8ff3fb },
+{ 0xEEF8 , 0xfa49 , 0x8ff3fc },
+{ 0x8754 , 0xfa4a , 0x8ff3fd },
+{ 0x8755 , 0xfa4b , 0x8ff3fe },
+{ 0x8756 , 0xfa4c , 0x8ff4a1 },
+{ 0x8757 , 0xfa4d , 0x8ff4a2 },
+{ 0x8758 , 0xfa4e , 0x8ff4a3 },
+{ 0x8759 , 0xfa4f , 0x8ff4a4 },
+{ 0x875A , 0xfa50 , 0x8ff4a5 },
+{ 0x875B , 0xfa51 , 0x8ff4a6 },
+{ 0x875C , 0xfa52 , 0x8ff4a7 },
+{ 0x875D , 0xfa53 , 0x8ff4a8 },
+{ 0xEEF9 , 0xfa54 , 0xa2cc },
+{ 0xEEFA , 0xfa55 , 0x8fa2c3 },
+{ 0xEEFB , 0xfa56 , 0x8ff4a9 },
+{ 0xEEFC , 0xfa57 , 0x8ff4aa },
+{ 0x878A , 0xfa58 , 0x8ff4ab },
+{ 0x8782 , 0xfa59 , 0x8ff4ac },
+{ 0x8784 , 0xfa5a , 0x8ff4ad },
+{ 0x879A , 0xfa5b , 0xa2e8 },
+{ 0xED40 , 0xfa5c , 0x8fd4e3 },
+{ 0xED41 , 0xfa5d , 0x8fdcdf },
+{ 0xED42 , 0xfa5e , 0x8fe4e9 },
+{ 0xED43 , 0xfa5f , 0x8fe3f8 },
+{ 0xED44 , 0xfa60 , 0x8fd9a1 },
+{ 0xED45 , 0xfa61 , 0x8fb1bb },
+{ 0xED46 , 0xfa62 , 0x8ff4ae },
+{ 0xED47 , 0xfa63 , 0x8fc2ad },
+{ 0xED48 , 0xfa64 , 0x8fc3fc },
+{ 0xED49 , 0xfa65 , 0x8fe4d0 },
+{ 0xED4A , 0xfa66 , 0x8fc2bf },
+{ 0xED4B , 0xfa67 , 0x8fbcf4 },
+{ 0xED4C , 0xfa68 , 0x8fb0a9 },
+{ 0xED4D , 0xfa69 , 0x8fb0c8 },
+{ 0xED4E , 0xfa6a , 0x8ff4af },
+{ 0xED4F , 0xfa6b , 0x8fb0d2 },
+{ 0xED50 , 0xfa6c , 0x8fb0d4 },
+{ 0xED51 , 0xfa6d , 0x8fb0e3 },
+{ 0xED52 , 0xfa6e , 0x8fb0ee },
+{ 0xED53 , 0xfa6f , 0x8fb1a7 },
+{ 0xED54 , 0xfa70 , 0x8fb1a3 },
+{ 0xED55 , 0xfa71 , 0x8fb1ac },
+{ 0xED56 , 0xfa72 , 0x8fb1a9 },
+{ 0xED57 , 0xfa73 , 0x8fb1be },
+{ 0xED58 , 0xfa74 , 0x8fb1df },
+{ 0xED59 , 0xfa75 , 0x8fb1d8 },
+{ 0xED5A , 0xfa76 , 0x8fb1c8 },
+{ 0xED5B , 0xfa77 , 0x8fb1d7 },
+{ 0xED5C , 0xfa78 , 0x8fb1e3 },
+{ 0xED5D , 0xfa79 , 0x8fb1f4 },
+{ 0xED5E , 0xfa7a , 0x8fb1e1 },
+{ 0xED5F , 0xfa7b , 0x8fb2a3 },
+{ 0xED60 , 0xfa7c , 0x8ff4b0 },
+{ 0xED61 , 0xfa7d , 0x8fb2bb },
+{ 0xED62 , 0xfa7e , 0x8fb2e6 },
+{ 0xED63 , 0xfa80 , 0x8fb2ed },
+{ 0xED64 , 0xfa81 , 0x8fb2f5 },
+{ 0xED65 , 0xfa82 , 0x8fb2fc },
+{ 0xED66 , 0xfa83 , 0x8ff4b1 },
+{ 0xED67 , 0xfa84 , 0x8fb3b5 },
+{ 0xED68 , 0xfa85 , 0x8fb3d8 },
+{ 0xED69 , 0xfa86 , 0x8fb3db },
+{ 0xED6A , 0xfa87 , 0x8fb3e5 },
+{ 0xED6B , 0xfa88 , 0x8fb3ee },
+{ 0xED6C , 0xfa89 , 0x8fb3fb },
+{ 0xED6D , 0xfa8a , 0x8ff4b2 },
+{ 0xED6E , 0xfa8b , 0x8ff4b3 },
+{ 0xED6F , 0xfa8c , 0x8fb4c0 },
+{ 0xED70 , 0xfa8d , 0x8fb4c7 },
+{ 0xED71 , 0xfa8e , 0x8fb4d0 },
+{ 0xED72 , 0xfa8f , 0x8fb4de },
+{ 0xED73 , 0xfa90 , 0x8ff4b4 },
+{ 0xED74 , 0xfa91 , 0x8fb5aa },
+{ 0xED75 , 0xfa92 , 0x8ff4b5 },
+{ 0xED76 , 0xfa93 , 0x8fb5af },
+{ 0xED77 , 0xfa94 , 0x8fb5c4 },
+{ 0xED78 , 0xfa95 , 0x8fb5e8 },
+{ 0xED79 , 0xfa96 , 0x8ff4b6 },
+{ 0xED7A , 0xfa97 , 0x8fb7c2 },
+{ 0xED7B , 0xfa98 , 0x8fb7e4 },
+{ 0xED7C , 0xfa99 , 0x8fb7e8 },
+{ 0xED7D , 0xfa9a , 0x8fb7e7 },
+{ 0xED7E , 0xfa9b , 0x8ff4b7 },
+{ 0xED80 , 0xfa9c , 0x8ff4b8 },
+{ 0xED81 , 0xfa9d , 0x8ff4b9 },
+{ 0xED82 , 0xfa9e , 0x8fb8ce },
+{ 0xED83 , 0xfa9f , 0x8fb8e1 },
+{ 0xED84 , 0xfaa0 , 0x8fb8f5 },
+{ 0xED85 , 0xfaa1 , 0x8fb8f7 },
+{ 0xED86 , 0xfaa2 , 0x8fb8f8 },
+{ 0xED87 , 0xfaa3 , 0x8fb8fc },
+{ 0xED88 , 0xfaa4 , 0x8fb9af },
+{ 0xED89 , 0xfaa5 , 0x8fb9b7 },
+{ 0xED8A , 0xfaa6 , 0x8fbabe },
+{ 0xED8B , 0xfaa7 , 0x8fbadb },
+{ 0xED8C , 0xfaa8 , 0x8fcdaa },
+{ 0xED8D , 0xfaa9 , 0x8fbae1 },
+{ 0xED8E , 0xfaaa , 0x8ff4ba },
+{ 0xED8F , 0xfaab , 0x8fbaeb },
+{ 0xED90 , 0xfaac , 0x8fbbb3 },
+{ 0xED91 , 0xfaad , 0x8fbbb8 },
+{ 0xED92 , 0xfaae , 0x8ff4bb },
+{ 0xED93 , 0xfaaf , 0x8fbbca },
+{ 0xED94 , 0xfab0 , 0x8ff4bc },
+{ 0xED95 , 0xfab1 , 0x8ff4bd },
+{ 0xED96 , 0xfab2 , 0x8fbbd0 },
+{ 0xED97 , 0xfab3 , 0x8fbbde },
+{ 0xED98 , 0xfab4 , 0x8fbbf4 },
+{ 0xED99 , 0xfab5 , 0x8fbbf5 },
+{ 0xED9A , 0xfab6 , 0x8fbbf9 },
+{ 0xED9B , 0xfab7 , 0x8fbce4 },
+{ 0xED9C , 0xfab8 , 0x8fbced },
+{ 0xED9D , 0xfab9 , 0x8fbcfe },
+{ 0xED9E , 0xfaba , 0x8ff4be },
+{ 0xED9F , 0xfabb , 0x8fbdc2 },
+{ 0xEDA0 , 0xfabc , 0x8fbde7 },
+{ 0xEDA1 , 0xfabd , 0x8ff4bf },
+{ 0xEDA2 , 0xfabe , 0x8fbdf0 },
+{ 0xEDA3 , 0xfabf , 0x8fbeb0 },
+{ 0xEDA4 , 0xfac0 , 0x8fbeac },
+{ 0xEDA5 , 0xfac1 , 0x8ff4c0 },
+{ 0xEDA6 , 0xfac2 , 0x8fbeb3 },
+{ 0xEDA7 , 0xfac3 , 0x8fbebd },
+{ 0xEDA8 , 0xfac4 , 0x8fbecd },
+{ 0xEDA9 , 0xfac5 , 0x8fbec9 },
+{ 0xEDAA , 0xfac6 , 0x8fbee4 },
+{ 0xEDAB , 0xfac7 , 0x8fbfa8 },
+{ 0xEDAC , 0xfac8 , 0x8fbfc9 },
+{ 0xEDAD , 0xfac9 , 0x8fc0c4 },
+{ 0xEDAE , 0xfaca , 0x8fc0e4 },
+{ 0xEDAF , 0xfacb , 0x8fc0f4 },
+{ 0xEDB0 , 0xfacc , 0x8fc1a6 },
+{ 0xEDB1 , 0xfacd , 0x8ff4c1 },
+{ 0xEDB2 , 0xface , 0x8fc1f5 },
+{ 0xEDB3 , 0xfacf , 0x8fc1fc },
+{ 0xEDB4 , 0xfad0 , 0x8ff4c2 },
+{ 0xEDB5 , 0xfad1 , 0x8fc1f8 },
+{ 0xEDB6 , 0xfad2 , 0x8fc2ab },
+{ 0xEDB7 , 0xfad3 , 0x8fc2a1 },
+{ 0xEDB8 , 0xfad4 , 0x8fc2a5 },
+{ 0xEDB9 , 0xfad5 , 0x8ff4c3 },
+{ 0xEDBA , 0xfad6 , 0x8fc2b8 },
+{ 0xEDBB , 0xfad7 , 0x8fc2ba },
+{ 0xEDBC , 0xfad8 , 0x8ff4c4 },
+{ 0xEDBD , 0xfad9 , 0x8fc2c4 },
+{ 0xEDBE , 0xfada , 0x8fc2d2 },
+{ 0xEDBF , 0xfadb , 0x8fc2d7 },
+{ 0xEDC0 , 0xfadc , 0x8fc2db },
+{ 0xEDC1 , 0xfadd , 0x8fc2de },
+{ 0xEDC2 , 0xfade , 0x8fc2ed },
+{ 0xEDC3 , 0xfadf , 0x8fc2f0 },
+{ 0xEDC4 , 0xfae0 , 0x8ff4c5 },
+{ 0xEDC5 , 0xfae1 , 0x8fc3a1 },
+{ 0xEDC6 , 0xfae2 , 0x8fc3b5 },
+{ 0xEDC7 , 0xfae3 , 0x8fc3c9 },
+{ 0xEDC8 , 0xfae4 , 0x8fc3b9 },
+{ 0xEDC9 , 0xfae5 , 0x8ff4c6 },
+{ 0xEDCA , 0xfae6 , 0x8fc3d8 },
+{ 0xEDCB , 0xfae7 , 0x8fc3fe },
+{ 0xEDCC , 0xfae8 , 0x8ff4c7 },
+{ 0xEDCD , 0xfae9 , 0x8fc4cc },
+{ 0xEDCE , 0xfaea , 0x8ff4c8 },
+{ 0xEDCF , 0xfaeb , 0x8fc4d9 },
+{ 0xEDD0 , 0xfaec , 0x8fc4ea },
+{ 0xEDD1 , 0xfaed , 0x8fc4fd },
+{ 0xEDD2 , 0xfaee , 0x8ff4c9 },
+{ 0xEDD3 , 0xfaef , 0x8fc5a7 },
+{ 0xEDD4 , 0xfaf0 , 0x8fc5b5 },
+{ 0xEDD5 , 0xfaf1 , 0x8fc5b6 },
+{ 0xEDD6 , 0xfaf2 , 0x8ff4ca },
+{ 0xEDD7 , 0xfaf3 , 0x8fc5d5 },
+{ 0xEDD8 , 0xfaf4 , 0x8fc6b8 },
+{ 0xEDD9 , 0xfaf5 , 0x8fc6d7 },
+{ 0xEDDA , 0xfaf6 , 0x8fc6e0 },
+{ 0xEDDB , 0xfaf7 , 0x8fc6ea },
+{ 0xEDDC , 0xfaf8 , 0x8fc6e3 },
+{ 0xEDDD , 0xfaf9 , 0x8fc7a1 },
+{ 0xEDDE , 0xfafa , 0x8fc7ab },
+{ 0xEDDF , 0xfafb , 0x8fc7c7 },
+{ 0xEDE0 , 0xfafc , 0x8fc7c3 },
+{ 0xEDE1 , 0xfb40 , 0x8fc7cb },
+{ 0xEDE2 , 0xfb41 , 0x8fc7cf },
+{ 0xEDE3 , 0xfb42 , 0x8fc7d9 },
+{ 0xEDE4 , 0xfb43 , 0x8ff4cb },
+{ 0xEDE5 , 0xfb44 , 0x8ff4cc },
+{ 0xEDE6 , 0xfb45 , 0x8fc7e6 },
+{ 0xEDE7 , 0xfb46 , 0x8fc7ee },
+{ 0xEDE8 , 0xfb47 , 0x8fc7fc },
+{ 0xEDE9 , 0xfb48 , 0x8fc7eb },
+{ 0xEDEA , 0xfb49 , 0x8fc7f0 },
+{ 0xEDEB , 0xfb4a , 0x8fc8b1 },
+{ 0xEDEC , 0xfb4b , 0x8fc8e5 },
+{ 0xEDED , 0xfb4c , 0x8fc8f8 },
+{ 0xEDEE , 0xfb4d , 0x8fc9a6 },
+{ 0xEDEF , 0xfb4e , 0x8fc9ab },
+{ 0xEDF0 , 0xfb4f , 0x8fc9ad },
+{ 0xEDF1 , 0xfb50 , 0x8ff4cd },
+{ 0xEDF2 , 0xfb51 , 0x8fc9ca },
+{ 0xEDF3 , 0xfb52 , 0x8fc9d3 },
+{ 0xEDF4 , 0xfb53 , 0x8fc9e9 },
+{ 0xEDF5 , 0xfb54 , 0x8fc9e3 },
+{ 0xEDF6 , 0xfb55 , 0x8fc9fc },
+{ 0xEDF7 , 0xfb56 , 0x8fc9f4 },
+{ 0xEDF8 , 0xfb57 , 0x8fc9f5 },
+{ 0xEDF9 , 0xfb58 , 0x8ff4ce },
+{ 0xEDFA , 0xfb59 , 0x8fcab3 },
+{ 0xEDFB , 0xfb5a , 0x8fcabd },
+{ 0xEDFC , 0xfb5b , 0x8fcaef },
+{ 0xEE40 , 0xfb5c , 0x8fcaf1 },
+{ 0xEE41 , 0xfb5d , 0x8fcbae },
+{ 0xEE42 , 0xfb5e , 0x8ff4cf },
+{ 0xEE43 , 0xfb5f , 0x8fcbca },
+{ 0xEE44 , 0xfb60 , 0x8fcbe6 },
+{ 0xEE45 , 0xfb61 , 0x8fcbea },
+{ 0xEE46 , 0xfb62 , 0x8fcbf0 },
+{ 0xEE47 , 0xfb63 , 0x8fcbf4 },
+{ 0xEE48 , 0xfb64 , 0x8fcbee },
+{ 0xEE49 , 0xfb65 , 0x8fcca5 },
+{ 0xEE4A , 0xfb66 , 0x8fcbf9 },
+{ 0xEE4B , 0xfb67 , 0x8fccab },
+{ 0xEE4C , 0xfb68 , 0x8fccae },
+{ 0xEE4D , 0xfb69 , 0x8fccad },
+{ 0xEE4E , 0xfb6a , 0x8fccb2 },
+{ 0xEE4F , 0xfb6b , 0x8fccc2 },
+{ 0xEE50 , 0xfb6c , 0x8fccd0 },
+{ 0xEE51 , 0xfb6d , 0x8fccd9 },
+{ 0xEE52 , 0xfb6e , 0x8ff4d0 },
+{ 0xEE53 , 0xfb6f , 0x8fcdbb },
+{ 0xEE54 , 0xfb70 , 0x8ff4d1 },
+{ 0xEE55 , 0xfb71 , 0x8fcebb },
+{ 0xEE56 , 0xfb72 , 0x8ff4d2 },
+{ 0xEE57 , 0xfb73 , 0x8fceba },
+{ 0xEE58 , 0xfb74 , 0x8fcec3 },
+{ 0xEE59 , 0xfb75 , 0x8ff4d3 },
+{ 0xEE5A , 0xfb76 , 0x8fcef2 },
+{ 0xEE5B , 0xfb77 , 0x8fb3dd },
+{ 0xEE5C , 0xfb78 , 0x8fcfd5 },
+{ 0xEE5D , 0xfb79 , 0x8fcfe2 },
+{ 0xEE5E , 0xfb7a , 0x8fcfe9 },
+{ 0xEE5F , 0xfb7b , 0x8fcfed },
+{ 0xEE60 , 0xfb7c , 0x8ff4d4 },
+{ 0xEE61 , 0xfb7d , 0x8ff4d5 },
+{ 0xEE62 , 0xfb7e , 0x8ff4d6 },
+{ 0xEE63 , 0xfb80 , 0x8ff4d7 },
+{ 0xEE64 , 0xfb81 , 0x8fd0e5 },
+{ 0xEE65 , 0xfb82 , 0x8ff4d8 },
+{ 0xEE66 , 0xfb83 , 0x8fd0e9 },
+{ 0xEE67 , 0xfb84 , 0x8fd1e8 },
+{ 0xEE68 , 0xfb85 , 0x8ff4d9 },
+{ 0xEE69 , 0xfb86 , 0x8ff4da },
+{ 0xEE6A , 0xfb87 , 0x8fd1ec },
+{ 0xEE6B , 0xfb88 , 0x8fd2bb },
+{ 0xEE6C , 0xfb89 , 0x8ff4db },
+{ 0xEE6D , 0xfb8a , 0x8fd3e1 },
+{ 0xEE6E , 0xfb8b , 0x8fd3e8 },
+{ 0xEE6F , 0xfb8c , 0x8fd4a7 },
+{ 0xEE70 , 0xfb8d , 0x8ff4dc },
+{ 0xEE71 , 0xfb8e , 0x8ff4dd },
+{ 0xEE72 , 0xfb8f , 0x8fd4d4 },
+{ 0xEE73 , 0xfb90 , 0x8fd4f2 },
+{ 0xEE74 , 0xfb91 , 0x8fd5ae },
+{ 0xEE75 , 0xfb92 , 0x8ff4de },
+{ 0xEE76 , 0xfb93 , 0x8fd7de },
+{ 0xEE77 , 0xfb94 , 0x8ff4df },
+{ 0xEE78 , 0xfb95 , 0x8fd8a2 },
+{ 0xEE79 , 0xfb96 , 0x8fd8b7 },
+{ 0xEE7A , 0xfb97 , 0x8fd8c1 },
+{ 0xEE7B , 0xfb98 , 0x8fd8d1 },
+{ 0xEE7C , 0xfb99 , 0x8fd8f4 },
+{ 0xEE7D , 0xfb9a , 0x8fd9c6 },
+{ 0xEE7E , 0xfb9b , 0x8fd9c8 },
+{ 0xEE80 , 0xfb9c , 0x8fd9d1 },
+{ 0xEE81 , 0xfb9d , 0x8ff4e0 },
+{ 0xEE82 , 0xfb9e , 0x8ff4e1 },
+{ 0xEE83 , 0xfb9f , 0x8ff4e2 },
+{ 0xEE84 , 0xfba0 , 0x8ff4e3 },
+{ 0xEE85 , 0xfba1 , 0x8ff4e4 },
+{ 0xEE86 , 0xfba2 , 0x8fdcd3 },
+{ 0xEE87 , 0xfba3 , 0x8fddc8 },
+{ 0xEE88 , 0xfba4 , 0x8fddd4 },
+{ 0xEE89 , 0xfba5 , 0x8fddea },
+{ 0xEE8A , 0xfba6 , 0x8fddfa },
+{ 0xEE8B , 0xfba7 , 0x8fdea4 },
+{ 0xEE8C , 0xfba8 , 0x8fdeb0 },
+{ 0xEE8D , 0xfba9 , 0x8ff4e5 },
+{ 0xEE8E , 0xfbaa , 0x8fdeb5 },
+{ 0xEE8F , 0xfbab , 0x8fdecb },
+{ 0xEE90 , 0xfbac , 0x8ff4e6 },
+{ 0xEE91 , 0xfbad , 0x8fdfb9 },
+{ 0xEE92 , 0xfbae , 0x8ff4e7 },
+{ 0xEE93 , 0xfbaf , 0x8fdfc3 },
+{ 0xEE94 , 0xfbb0 , 0x8ff4e8 },
+{ 0xEE95 , 0xfbb1 , 0x8ff4e9 },
+{ 0xEE96 , 0xfbb2 , 0x8fe0d9 },
+{ 0xEE97 , 0xfbb3 , 0x8ff4ea },
+{ 0xEE98 , 0xfbb4 , 0x8ff4eb },
+{ 0xEE99 , 0xfbb5 , 0x8fe1e2 },
+{ 0xEE9A , 0xfbb6 , 0x8ff4ec },
+{ 0xEE9B , 0xfbb7 , 0x8ff4ed },
+{ 0xEE9C , 0xfbb8 , 0x8ff4ee },
+{ 0xEE9D , 0xfbb9 , 0x8fe2c7 },
+{ 0xEE9E , 0xfbba , 0x8fe3a8 },
+{ 0xEE9F , 0xfbbb , 0x8fe3a6 },
+{ 0xEEA0 , 0xfbbc , 0x8fe3a9 },
+{ 0xEEA1 , 0xfbbd , 0x8fe3af },
+{ 0xEEA2 , 0xfbbe , 0x8fe3b0 },
+{ 0xEEA3 , 0xfbbf , 0x8fe3aa },
+{ 0xEEA4 , 0xfbc0 , 0x8fe3ab },
+{ 0xEEA5 , 0xfbc1 , 0x8fe3bc },
+{ 0xEEA6 , 0xfbc2 , 0x8fe3c1 },
+{ 0xEEA7 , 0xfbc3 , 0x8fe3bf },
+{ 0xEEA8 , 0xfbc4 , 0x8fe3d5 },
+{ 0xEEA9 , 0xfbc5 , 0x8fe3d8 },
+{ 0xEEAA , 0xfbc6 , 0x8fe3d6 },
+{ 0xEEAB , 0xfbc7 , 0x8fe3df },
+{ 0xEEAC , 0xfbc8 , 0x8fe3e3 },
+{ 0xEEAD , 0xfbc9 , 0x8fe3e1 },
+{ 0xEEAE , 0xfbca , 0x8fe3d4 },
+{ 0xEEAF , 0xfbcb , 0x8fe3e9 },
+{ 0xEEB0 , 0xfbcc , 0x8fe4a6 },
+{ 0xEEB1 , 0xfbcd , 0x8fe3f1 },
+{ 0xEEB2 , 0xfbce , 0x8fe3f2 },
+{ 0xEEB3 , 0xfbcf , 0x8fe4cb },
+{ 0xEEB4 , 0xfbd0 , 0x8fe4c1 },
+{ 0xEEB5 , 0xfbd1 , 0x8fe4c3 },
+{ 0xEEB6 , 0xfbd2 , 0x8fe4be },
+{ 0xEEB7 , 0xfbd3 , 0x8ff4ef },
+{ 0xEEB8 , 0xfbd4 , 0x8fe4c0 },
+{ 0xEEB9 , 0xfbd5 , 0x8fe4c7 },
+{ 0xEEBA , 0xfbd6 , 0x8fe4bf },
+{ 0xEEBB , 0xfbd7 , 0x8fe4e0 },
+{ 0xEEBC , 0xfbd8 , 0x8fe4de },
+{ 0xEEBD , 0xfbd9 , 0x8fe4d1 },
+{ 0xEEBE , 0xfbda , 0x8ff4f0 },
+{ 0xEEBF , 0xfbdb , 0x8fe4dc },
+{ 0xEEC0 , 0xfbdc , 0x8fe4d2 },
+{ 0xEEC1 , 0xfbdd , 0x8fe4db },
+{ 0xEEC2 , 0xfbde , 0x8fe4d4 },
+{ 0xEEC3 , 0xfbdf , 0x8fe4fa },
+{ 0xEEC4 , 0xfbe0 , 0x8fe4ef },
+{ 0xEEC5 , 0xfbe1 , 0x8fe5b3 },
+{ 0xEEC6 , 0xfbe2 , 0x8fe5bf },
+{ 0xEEC7 , 0xfbe3 , 0x8fe5c9 },
+{ 0xEEC8 , 0xfbe4 , 0x8fe5d0 },
+{ 0xEEC9 , 0xfbe5 , 0x8fe5e2 },
+{ 0xEECA , 0xfbe6 , 0x8fe5ea },
+{ 0xEECB , 0xfbe7 , 0x8fe5eb },
+{ 0xEECC , 0xfbe8 , 0x8ff4f1 },
+{ 0xEECD , 0xfbe9 , 0x8ff4f2 },
+{ 0xEECE , 0xfbea , 0x8ff4f3 },
+{ 0xEECF , 0xfbeb , 0x8fe6e8 },
+{ 0xEED0 , 0xfbec , 0x8fe6ef },
+{ 0xEED1 , 0xfbed , 0x8fe7ac },
+{ 0xEED2 , 0xfbee , 0x8ff4f4 },
+{ 0xEED3 , 0xfbef , 0x8fe7ae },
+{ 0xEED4 , 0xfbf0 , 0x8ff4f5 },
+{ 0xEED5 , 0xfbf1 , 0x8fe7b1 },
+{ 0xEED6 , 0xfbf2 , 0x8ff4f6 },
+{ 0xEED7 , 0xfbf3 , 0x8fe7b2 },
+{ 0xEED8 , 0xfbf4 , 0x8fe8b1 },
+{ 0xEED9 , 0xfbf5 , 0x8fe8b6 },
+{ 0xEEDA , 0xfbf6 , 0x8ff4f7 },
+{ 0xEEDB , 0xfbf7 , 0x8ff4f8 },
+{ 0xEEDC , 0xfbf8 , 0x8fe8dd },
+{ 0xEEDD , 0xfbf9 , 0x8ff4f9 },
+{ 0xEEDE , 0xfbfa , 0x8ff4fa },
+{ 0xEEDF , 0xfbfb , 0x8fe9d1 },
+{ 0xEEE0 , 0xfbfc , 0x8ff4fb },
+{ 0xEEE1 , 0xfc40 , 0x8fe9ed },
+{ 0xEEE2 , 0xfc41 , 0x8feacd },
+{ 0xEEE3 , 0xfc42 , 0x8ff4fc },
+{ 0xEEE4 , 0xfc43 , 0x8feadb },
+{ 0xEEE5 , 0xfc44 , 0x8feae6 },
+{ 0xEEE6 , 0xfc45 , 0x8feaea },
+{ 0xEEE7 , 0xfc46 , 0x8feba5 },
+{ 0xEEE8 , 0xfc47 , 0x8febfb },
+{ 0xEEE9 , 0xfc48 , 0x8febfa },
+{ 0xEEEA , 0xfc49 , 0x8ff4fd },
+{ 0xEEEB , 0xfc4a , 0x8fecd6 },
+{ 0xEEEC , 0xfc4b , 0x8ff4fe },
+{ 0xffff , 0xffff , 0xffff } /* Stop code */
+};
--- /dev/null
+#-------------------------------------------------------------------------
+#
+# $Id: Makefile,v 1.1 2002/07/16 09:25:05 ishii Exp $
+#
+#-------------------------------------------------------------------------
+top_builddir = ../../../../../..
+include $(top_builddir)/src/Makefile.global
+
+NAME := euc_tw_and_big5
+
+SRCS += big5.c
+OBJS += big5.o
+
+include ../proc.mk
--- /dev/null
+/*
+ * conversion between BIG5 and Mule Internal Code(CNS 116643-1992
+ * plane 1 and plane 2).
+ * This program is partially copied from lv(Multilingual file viewer)
+ * and slightly modified. lv is written and copyrighted by NARITA Tomio
+ * (nrt@web.ad.jp).
+ *
+ * 1999/1/15 Tatsuo Ishii
+ *
+ * $Id: big5.c,v 1.1 2002/07/16 09:25:05 ishii Exp $
+ */
+
+/* can be used in either frontend or backend */
+#include "postgres_fe.h"
+
+#include "mb/pg_wchar.h"
+
+typedef struct
+{
+ unsigned short code,
+ peer;
+} codes_t;
+
+/* map Big5 Level 1 to CNS 11643-1992 Plane 1 */
+static codes_t big5Level1ToCnsPlane1[25] = { /* range */
+ {0xA140, 0x2121},
+ {0xA1F6, 0x2258},
+ {0xA1F7, 0x2257},
+ {0xA1F8, 0x2259},
+ {0xA2AF, 0x2421},
+ {0xA3C0, 0x4221},
+ {0xa3e1, 0x0000},
+ {0xA440, 0x4421},
+ {0xACFE, 0x5753},
+ {0xacff, 0x0000},
+ {0xAD40, 0x5323},
+ {0xAFD0, 0x5754},
+ {0xBBC8, 0x6B51},
+ {0xBE52, 0x6B50},
+ {0xBE53, 0x6F5C},
+ {0xC1AB, 0x7536},
+ {0xC2CB, 0x7535},
+ {0xC2CC, 0x7737},
+ {0xC361, 0x782E},
+ {0xC3B9, 0x7865},
+ {0xC3BA, 0x7864},
+ {0xC3BB, 0x7866},
+ {0xC456, 0x782D},
+ {0xC457, 0x7962},
+ {0xc67f, 0x0000}
+};
+
+/* map CNS 11643-1992 Plane 1 to Big5 Level 1 */
+static codes_t cnsPlane1ToBig5Level1[26] = { /* range */
+ {0x2121, 0xA140},
+ {0x2257, 0xA1F7},
+ {0x2258, 0xA1F6},
+ {0x2259, 0xA1F8},
+ {0x234f, 0x0000},
+ {0x2421, 0xA2AF},
+ {0x2571, 0x0000},
+ {0x4221, 0xA3C0},
+ {0x4242, 0x0000},
+ {0x4421, 0xA440},
+ {0x5323, 0xAD40},
+ {0x5753, 0xACFE},
+ {0x5754, 0xAFD0},
+ {0x6B50, 0xBE52},
+ {0x6B51, 0xBBC8},
+ {0x6F5C, 0xBE53},
+ {0x7535, 0xC2CB},
+ {0x7536, 0xC1AB},
+ {0x7737, 0xC2CC},
+ {0x782D, 0xC456},
+ {0x782E, 0xC361},
+ {0x7864, 0xC3BA},
+ {0x7865, 0xC3B9},
+ {0x7866, 0xC3BB},
+ {0x7962, 0xC457},
+ {0x7d4c, 0x0000}
+};
+
+/* map Big5 Level 2 to CNS 11643-1992 Plane 2 */
+static codes_t big5Level2ToCnsPlane2[48] = { /* range */
+ {0xC940, 0x2121},
+ {0xc94a, 0x0000},
+ {0xC94B, 0x212B},
+ {0xC96C, 0x214D},
+ {0xC9BE, 0x214C},
+ {0xC9BF, 0x217D},
+ {0xC9ED, 0x224E},
+ {0xCAF7, 0x224D},
+ {0xCAF8, 0x2439},
+ {0xD77A, 0x3F6A},
+ {0xD77B, 0x387E},
+ {0xDBA7, 0x3F6B},
+ {0xDDFC, 0x4176},
+ {0xDDFD, 0x4424},
+ {0xE8A3, 0x554C},
+ {0xE976, 0x5723},
+ {0xEB5B, 0x5A29},
+ {0xEBF1, 0x554B},
+ {0xEBF2, 0x5B3F},
+ {0xECDE, 0x5722},
+ {0xECDF, 0x5C6A},
+ {0xEDAA, 0x5D75},
+ {0xEEEB, 0x642F},
+ {0xEEEC, 0x6039},
+ {0xF056, 0x5D74},
+ {0xF057, 0x6243},
+ {0xF0CB, 0x5A28},
+ {0xF0CC, 0x6337},
+ {0xF163, 0x6430},
+ {0xF16B, 0x6761},
+ {0xF16C, 0x6438},
+ {0xF268, 0x6934},
+ {0xF269, 0x6573},
+ {0xF2C3, 0x664E},
+ {0xF375, 0x6762},
+ {0xF466, 0x6935},
+ {0xF4B5, 0x664D},
+ {0xF4B6, 0x6962},
+ {0xF4FD, 0x6A4C},
+ {0xF663, 0x6A4B},
+ {0xF664, 0x6C52},
+ {0xF977, 0x7167},
+ {0xF9C4, 0x7166},
+ {0xF9C5, 0x7234},
+ {0xF9C6, 0x7240},
+ {0xF9C7, 0x7235},
+ {0xF9D2, 0x7241},
+ {0xf9d6, 0x0000}
+};
+
+/* map CNS 11643-1992 Plane 2 to Big5 Level 2 */
+static codes_t cnsPlane2ToBig5Level2[49] = { /* range */
+ {0x2121, 0xC940},
+ {0x212B, 0xC94B},
+ {0x214C, 0xC9BE},
+ {0x214D, 0xC96C},
+ {0x217D, 0xC9BF},
+ {0x224D, 0xCAF7},
+ {0x224E, 0xC9ED},
+ {0x2439, 0xCAF8},
+ {0x387E, 0xD77B},
+ {0x3F6A, 0xD77A},
+ {0x3F6B, 0xDBA7},
+ {0x4424, 0x0000},
+ {0x4176, 0xDDFC},
+ {0x4177, 0x0000},
+ {0x4424, 0xDDFD},
+ {0x554B, 0xEBF1},
+ {0x554C, 0xE8A3},
+ {0x5722, 0xECDE},
+ {0x5723, 0xE976},
+ {0x5A28, 0xF0CB},
+ {0x5A29, 0xEB5B},
+ {0x5B3F, 0xEBF2},
+ {0x5C6A, 0xECDF},
+ {0x5D74, 0xF056},
+ {0x5D75, 0xEDAA},
+ {0x6039, 0xEEEC},
+ {0x6243, 0xF057},
+ {0x6337, 0xF0CC},
+ {0x642F, 0xEEEB},
+ {0x6430, 0xF163},
+ {0x6438, 0xF16C},
+ {0x6573, 0xF269},
+ {0x664D, 0xF4B5},
+ {0x664E, 0xF2C3},
+ {0x6761, 0xF16B},
+ {0x6762, 0xF375},
+ {0x6934, 0xF268},
+ {0x6935, 0xF466},
+ {0x6962, 0xF4B6},
+ {0x6A4B, 0xF663},
+ {0x6A4C, 0xF4FD},
+ {0x6C52, 0xF664},
+ {0x7166, 0xF9C4},
+ {0x7167, 0xF977},
+ {0x7234, 0xF9C5},
+ {0x7235, 0xF9C7},
+ {0x7240, 0xF9C6},
+ {0x7241, 0xF9D2},
+ {0x7245, 0x0000}
+};
+
+/* Big Five Level 1 Correspondence to CNS 11643-1992 Plane 4 */
+static unsigned short b1c4[][2] = {
+ {0xC879, 0x2123},
+ {0xC87B, 0x2124},
+ {0xC87D, 0x212A},
+ {0xC8A2, 0x2152}
+};
+
+/* Big Five Level 2 Correspondence to CNS 11643-1992 Plane 3 */
+static unsigned short b2c3[][2] = {
+ {0xF9D6, 0x4337},
+ {0xF9D7, 0x4F50},
+ {0xF9D8, 0x444E},
+ {0xF9D9, 0x504A},
+ {0xF9DA, 0x2C5D},
+ {0xF9DB, 0x3D7E},
+ {0xF9DC, 0x4B5C}
+};
+
+static unsigned short BinarySearchRange
+ (codes_t *array, int high, unsigned short code)
+{
+ int low,
+ mid,
+ distance,
+ tmp;
+
+ low = 0;
+ mid = high >> 1;
+
+ for (; low <= high; mid = (low + high) >> 1)
+ {
+ if ((array[mid].code <= code) && (array[mid + 1].code > code))
+ {
+ if (0 == array[mid].peer)
+ return 0;
+ if (code >= 0xa140U)
+ {
+ /* big5 to cns */
+ tmp = ((code & 0xff00) - (array[mid].code & 0xff00)) >> 8;
+ high = code & 0x00ff;
+ low = array[mid].code & 0x00ff;
+
+ /*
+ * NOTE: big5 high_byte: 0xa1-0xfe, low_byte: 0x40-0x7e,
+ * 0xa1-0xfe (radicals: 0x00-0x3e, 0x3f-0x9c) big5 radix
+ * is 0x9d. [region_low, region_high]
+ * We should remember big5 has two different regions
+ * (above). There is a bias for the distance between these
+ * regions. 0xa1 - 0x7e + bias = 1 (Distance between 0xa1
+ * and 0x7e is 1.) bias = - 0x22.
+ */
+ distance = tmp * 0x9d + high - low +
+ (high >= 0xa1 ? (low >= 0xa1 ? 0 : -0x22)
+ : (low >= 0xa1 ? +0x22 : 0));
+
+ /*
+ * NOTE: we have to convert the distance into a code
+ * point. The code point's low_byte is 0x21 plus mod_0x5e.
+ * In the first, we extract the mod_0x5e of the starting
+ * code point, subtracting 0x21, and add distance to it.
+ * Then we calculate again mod_0x5e of them, and restore
+ * the final codepoint, adding 0x21.
+ */
+ tmp = (array[mid].peer & 0x00ff) + distance - 0x21;
+ tmp = (array[mid].peer & 0xff00) + ((tmp / 0x5e) << 8)
+ + 0x21 + tmp % 0x5e;
+ return tmp;
+ }
+ else
+ {
+ /* cns to big5 */
+ tmp = ((code & 0xff00) - (array[mid].code & 0xff00)) >> 8;
+
+ /*
+ * NOTE: ISO charsets ranges between 0x21-0xfe
+ * (94charset). Its radix is 0x5e. But there is no
+ * distance bias like big5.
+ */
+ distance = tmp * 0x5e
+ + ((int) (code & 0x00ff) - (int) (array[mid].code & 0x00ff));
+
+ /*
+ * NOTE: Similar to big5 to cns conversion, we extract
+ * mod_0x9d and restore mod_0x9d into a code point.
+ */
+ low = array[mid].peer & 0x00ff;
+ tmp = low + distance - (low >= 0xa1 ? 0x62 : 0x40);
+ low = tmp % 0x9d;
+ tmp = (array[mid].peer & 0xff00) + ((tmp / 0x9d) << 8)
+ + (low > 0x3e ? 0x62 : 0x40) + low;
+ return tmp;
+ }
+ }
+ else if (array[mid].code > code)
+ high = mid - 1;
+ else
+ low = mid + 1;
+ }
+
+ return 0;
+}
+
+
+unsigned short
+BIG5toCNS(unsigned short big5, unsigned char *lc)
+{
+ unsigned short cns = 0;
+ int i;
+
+ if (big5 < 0xc940U)
+ {
+ /* level 1 */
+
+ for (i = 0; i < sizeof(b1c4) / sizeof(unsigned short); i++)
+ {
+ if (b1c4[i][0] == big5)
+ {
+ *lc = LC_CNS11643_4;
+ return (b1c4[i][1] | 0x8080U);
+ }
+ }
+
+ if (0 < (cns = BinarySearchRange(big5Level1ToCnsPlane1, 23, big5)))
+ *lc = LC_CNS11643_1;
+ }
+ else if (big5 == 0xc94aU)
+ {
+ /* level 2 */
+ *lc = LC_CNS11643_1;
+ cns = 0x4442;
+ }
+ else
+ {
+ /* level 2 */
+ for (i = 0; i < sizeof(b2c3) / sizeof(unsigned short); i++)
+ {
+ if (b2c3[i][0] == big5)
+ {
+ *lc = LC_CNS11643_3;
+ return (b2c3[i][1] | 0x8080U);
+ }
+ }
+
+ if (0 < (cns = BinarySearchRange(big5Level2ToCnsPlane2, 46, big5)))
+ *lc = LC_CNS11643_2;
+ }
+
+ if (0 == cns)
+ { /* no mapping Big5 to CNS 11643-1992 */
+ *lc = 0;
+ return (unsigned short) '?';
+ }
+
+ return cns | 0x8080;
+}
+
+unsigned short
+CNStoBIG5(unsigned short cns, unsigned char lc)
+{
+ int i;
+ unsigned int big5 = 0;
+
+ cns &= 0x7f7f;
+
+ switch (lc)
+ {
+ case LC_CNS11643_1:
+ big5 = BinarySearchRange(cnsPlane1ToBig5Level1, 24, cns);
+ break;
+ case LC_CNS11643_2:
+ big5 = BinarySearchRange(cnsPlane2ToBig5Level2, 47, cns);
+ break;
+ case LC_CNS11643_3:
+ for (i = 0; i < sizeof(b2c3) / sizeof(unsigned short); i++)
+ {
+ if (b2c3[i][1] == cns)
+ return (b2c3[i][0]);
+ }
+ break;
+ case LC_CNS11643_4:
+ for (i = 0; i < sizeof(b1c4) / sizeof(unsigned short); i++)
+ {
+ if (b1c4[i][1] == cns)
+ return (b1c4[i][0]);
+ }
+ default:
+ break;
+ }
+ return big5;
+}
--- /dev/null
+/*-------------------------------------------------------------------------
+ *
+ * EUC_TW, BIG5 and MULE_INTERNAL
+ *
+ * Portions Copyright (c) 1996-2002, PostgreSQL Global Development Group
+ * Portions Copyright (c) 1994, Regents of the University of California
+ *
+ * IDENTIFICATION
+ * $Header: /cvsroot/pgsql/src/backend/utils/mb/conversion_procs/euc_tw_and_big5/euc_tw_and_big5.c,v 1.1 2002/07/16 09:25:05 ishii Exp $
+ *
+ *-------------------------------------------------------------------------
+ */
+
+#include "postgres.h"
+#include "fmgr.h"
+#include "mb/pg_wchar.h"
+
+#define ENCODING_GROWTH_RATE 4
+
+PG_FUNCTION_INFO_V1(euc_tw_to_big5)
+PG_FUNCTION_INFO_V1(big5_to_euc_tw)
+PG_FUNCTION_INFO_V1(euc_tw_to_mic)
+PG_FUNCTION_INFO_V1(mic_to_euc_tw)
+PG_FUNCTION_INFO_V1(big5_to_mic)
+PG_FUNCTION_INFO_V1(mic_to_big5)
+
+extern Datum euc_tw_to_big5(PG_FUNCTION_ARGS);
+extern Datum big5_to_euc_tw(PG_FUNCTION_ARGS);
+extern Datum euc_tw_to_mic(PG_FUNCTION_ARGS);
+extern Datum mic_to_euc_tw(PG_FUNCTION_ARGS);
+extern Datum big5_to_mic(PG_FUNCTION_ARGS);
+extern Datum mic_to_big5(PG_FUNCTION_ARGS);
+
+/* ----------
+ * conv_proc(
+ * INTEGER, -- source encoding id
+ * INTEGER, -- destination encoding id
+ * OPAQUE, -- source string (null terminated C string)
+ * OPAQUE, -- destination string (null terminated C string)
+ * INTEGER -- source string length
+ * ) returns INTEGER; -- dummy. returns nothing, actually.
+ * ----------
+ */
+
+static void big52mic(unsigned char *big5, unsigned char *p, int len);
+static void mic2big5(unsigned char *mic, unsigned char *p, int len);
+static void euc_tw2mic(unsigned char *euc, unsigned char *p, int len);
+static void mic2euc_tw(unsigned char *mic, unsigned char *p, int len);
+
+Datum
+euc_tw_to_big5(PG_FUNCTION_ARGS)
+{
+ unsigned char *src = PG_GETARG_CSTRING(2);
+ unsigned char *dest = PG_GETARG_CSTRING(3);
+ int len = PG_GETARG_INT32(4);
+ unsigned char *buf;
+
+ Assert(PG_GETARG_INT32(0) == PG_EUC_TW);
+ Assert(PG_GETARG_INT32(1) == PG_BIG5);
+ Assert(len > 0);
+
+ buf = palloc(len * ENCODING_GROWTH_RATE);
+ euc_tw2mic(src, buf, len);
+ mic2big5(buf, dest, strlen(buf));
+ pfree(buf);
+
+ PG_RETURN_INT32(0);
+}
+
+Datum
+big5_to_euc_tw(PG_FUNCTION_ARGS)
+{
+ unsigned char *src = PG_GETARG_CSTRING(2);
+ unsigned char *dest = PG_GETARG_CSTRING(3);
+ int len = PG_GETARG_INT32(4);
+ unsigned char *buf;
+
+ Assert(PG_GETARG_INT32(0) == PG_BIG5);
+ Assert(PG_GETARG_INT32(1) == PG_EUC_TW);
+ Assert(len > 0);
+
+ buf = palloc(len * ENCODING_GROWTH_RATE);
+ big52mic(src, buf, len);
+ mic2euc_tw(buf, dest, strlen(buf));
+ pfree(buf);
+
+ PG_RETURN_INT32(0);
+}
+
+Datum
+euc_tw_to_mic(PG_FUNCTION_ARGS)
+{
+ unsigned char *src = PG_GETARG_CSTRING(2);
+ unsigned char *dest = PG_GETARG_CSTRING(3);
+ int len = PG_GETARG_INT32(4);
+
+ Assert(PG_GETARG_INT32(0) == PG_EUC_TW);
+ Assert(PG_GETARG_INT32(1) == PG_MULE_INTERNAL);
+ Assert(len > 0);
+
+ euc_tw2mic(src, dest, len);
+
+ PG_RETURN_INT32(0);
+}
+
+Datum
+mic_to_euc_tw(PG_FUNCTION_ARGS)
+{
+ unsigned char *src = PG_GETARG_CSTRING(2);
+ unsigned char *dest = PG_GETARG_CSTRING(3);
+ int len = PG_GETARG_INT32(4);
+
+ Assert(PG_GETARG_INT32(0) == PG_MULE_INTERNAL);
+ Assert(PG_GETARG_INT32(1) == PG_EUC_TW);
+ Assert(len > 0);
+
+ mic2big5(src, dest, len);
+
+ PG_RETURN_INT32(0);
+}
+
+Datum
+big5_to_mic(PG_FUNCTION_ARGS)
+{
+ unsigned char *src = PG_GETARG_CSTRING(2);
+ unsigned char *dest = PG_GETARG_CSTRING(3);
+ int len = PG_GETARG_INT32(4);
+
+ Assert(PG_GETARG_INT32(0) == PG_BIG5);
+ Assert(PG_GETARG_INT32(1) == PG_MULE_INTERNAL);
+ Assert(len > 0);
+
+ big52mic(src, dest, len);
+
+ PG_RETURN_INT32(0);
+}
+
+Datum
+mic_to_big5(PG_FUNCTION_ARGS)
+{
+ unsigned char *src = PG_GETARG_CSTRING(2);
+ unsigned char *dest = PG_GETARG_CSTRING(3);
+ int len = PG_GETARG_INT32(4);
+
+ Assert(PG_GETARG_INT32(0) == PG_MULE_INTERNAL);
+ Assert(PG_GETARG_INT32(1) == PG_BIG5);
+ Assert(len > 0);
+
+ mic2big5(src, dest, len);
+
+ PG_RETURN_INT32(0);
+}
+
+/*
+ * EUC_TW ---> MIC
+ */
+static void
+euc_tw2mic(unsigned char *euc, unsigned char *p, int len)
+{
+ int c1;
+
+ while (len > 0 && (c1 = *euc++))
+ {
+ if (c1 == SS2)
+ {
+ len -= 4;
+ c1 = *euc++; /* plane No. */
+ if (c1 == 0xa1)
+ *p++ = LC_CNS11643_1;
+ else if (c1 == 0xa2)
+ *p++ = LC_CNS11643_2;
+ else
+ {
+ *p++ = 0x9d; /* LCPRV2 */
+ *p++ = 0xa3 - c1 + LC_CNS11643_3;
+ }
+ *p++ = *euc++;
+ *p++ = *euc++;
+ }
+ else if (c1 & 0x80)
+ { /* CNS11643-1 */
+ len -= 2;
+ *p++ = LC_CNS11643_1;
+ *p++ = c1;
+ *p++ = *euc++;
+ }
+ else
+ { /* should be ASCII */
+ len--;
+ *p++ = c1;
+ }
+ }
+ *p = '\0';
+}
+
+/*
+ * MIC ---> EUC_TW
+ */
+static void
+mic2euc_tw(unsigned char *mic, unsigned char *p, int len)
+{
+ int c1;
+
+ while (len > 0 && (c1 = *mic))
+ {
+ len -= pg_mic_mblen(mic++);
+
+ if (c1 == LC_CNS11643_1)
+ {
+ *p++ = *mic++;
+ *p++ = *mic++;
+ }
+ else if (c1 == LC_CNS11643_2)
+ {
+ *p++ = SS2;
+ *p++ = 0xa2;
+ *p++ = *mic++;
+ *p++ = *mic++;
+ }
+ else if (c1 == 0x9d)
+ { /* LCPRV2? */
+ *p++ = SS2;
+ *p++ = *mic++ - LC_CNS11643_3 + 0xa3;
+ *p++ = *mic++;
+ *p++ = *mic++;
+ }
+ else if (c1 > 0x7f)
+ { /* cannot convert to EUC_TW! */
+ mic--;
+ pg_print_bogus_char(&mic, &p);
+ }
+ else
+ { /* should be ASCII */
+ *p++ = c1;
+ }
+ }
+ *p = '\0';
+}
+
+/*
+ * Big5 ---> MIC
+ */
+static void
+big52mic(unsigned char *big5, unsigned char *p, int len)
+{
+ unsigned short c1;
+ unsigned short big5buf,
+ cnsBuf;
+ unsigned char lc;
+ char bogusBuf[3];
+ int i;
+
+ while (len > 0 && (c1 = *big5++))
+ {
+ if (c1 <= 0x7fU)
+ { /* ASCII */
+ len--;
+ *p++ = c1;
+ }
+ else
+ {
+ len -= 2;
+ big5buf = c1 << 8;
+ c1 = *big5++;
+ big5buf |= c1;
+ cnsBuf = BIG5toCNS(big5buf, &lc);
+ if (lc != 0)
+ {
+ if (lc == LC_CNS11643_3 || lc == LC_CNS11643_4)
+ {
+ *p++ = 0x9d; /* LCPRV2 */
+ }
+ *p++ = lc; /* Plane No. */
+ *p++ = (cnsBuf >> 8) & 0x00ff;
+ *p++ = cnsBuf & 0x00ff;
+ }
+ else
+ { /* cannot convert */
+ big5 -= 2;
+ *p++ = '(';
+ for (i = 0; i < 2; i++)
+ {
+ sprintf(bogusBuf, "%02x", *big5++);
+ *p++ = bogusBuf[0];
+ *p++ = bogusBuf[1];
+ }
+ *p++ = ')';
+ }
+ }
+ }
+ *p = '\0';
+}
+
+/*
+ * MIC ---> Big5
+ */
+static void
+mic2big5(unsigned char *mic, unsigned char *p, int len)
+{
+ int l;
+ unsigned short c1;
+ unsigned short big5buf,
+ cnsBuf;
+
+ while (len > 0 && (c1 = *mic))
+ {
+ l = pg_mic_mblen(mic++);
+ len -= l;
+
+ /* 0x9d means LCPRV2 */
+ if (c1 == LC_CNS11643_1 || c1 == LC_CNS11643_2 || c1 == 0x9d)
+ {
+ if (c1 == 0x9d)
+ {
+ c1 = *mic++; /* get plane no. */
+ }
+ cnsBuf = (*mic++) << 8;
+ cnsBuf |= (*mic++) & 0x00ff;
+ big5buf = CNStoBIG5(cnsBuf, c1);
+ if (big5buf == 0)
+ { /* cannot convert to Big5! */
+ mic -= l;
+ pg_print_bogus_char(&mic, &p);
+ }
+ else
+ {
+ *p++ = (big5buf >> 8) & 0x00ff;
+ *p++ = big5buf & 0x00ff;
+ }
+ }
+ else if (c1 <= 0x7f) /* ASCII */
+ *p++ = c1;
+ else
+ { /* cannot convert to Big5! */
+ mic--;
+ pg_print_bogus_char(&mic, &p);
+ }
+ }
+ *p = '\0';
+}
--- /dev/null
+SRCS += $(NAME).c
+OBJS += $(NAME).o
+
+PG_CPPFLAGS :=
+SHLIB_LINK :=
+
+SO_MAJOR_VERSION := 0
+SO_MINOR_VERSION := 0
+rpath =
+
+install: all
+ $(INSTALL_SHLIB) $(shlib) $(DESTDIR)$(pkglibdir)/$(NAME)$(DLSUFFIX)
+
+uninstall: uninstall-lib
+
+clean distclean maintainer-clean: clean-lib
+ $(RM) $(OBJS)
+
+include $(top_builddir)/src/Makefile.shlib
+
+all: $(shlib)
--- /dev/null
+#-------------------------------------------------------------------------
+#
+# $Id: Makefile,v 1.1 2002/07/16 09:25:05 ishii Exp $
+#
+#-------------------------------------------------------------------------
+top_builddir = ../../../../../..
+include $(top_builddir)/src/Makefile.global
+
+NAME := utf8_and_ascii
+
+include ../proc.mk
--- /dev/null
+/*-------------------------------------------------------------------------
+ *
+ * ASCII <--> UTF-8
+ *
+ * Portions Copyright (c) 1996-2002, PostgreSQL Global Development Group
+ * Portions Copyright (c) 1994, Regents of the University of California
+ *
+ * IDENTIFICATION
+ * $Header: /cvsroot/pgsql/src/backend/utils/mb/conversion_procs/utf8_and_ascii/utf8_and_ascii.c,v 1.1 2002/07/16 09:25:05 ishii Exp $
+ *
+ *-------------------------------------------------------------------------
+ */
+
+#include "postgres.h"
+#include "fmgr.h"
+#include "mb/pg_wchar.h"
+
+PG_FUNCTION_INFO_V1(ascii_to_utf8)
+PG_FUNCTION_INFO_V1(utf8_to_ascii)
+
+extern Datum ascii_to_utf8(PG_FUNCTION_ARGS);
+extern Datum utf8_to_ascii(PG_FUNCTION_ARGS);
+
+/* ----------
+ * conv_proc(
+ * INTEGER, -- source encoding id
+ * INTEGER, -- destination encoding id
+ * OPAQUE, -- source string (null terminated C string)
+ * OPAQUE, -- destination string (null terminated C string)
+ * INTEGER -- source string length
+ * ) returns INTEGER; -- dummy. returns nothing, actually.
+ * ----------
+ */
+
+Datum
+ascii_to_utf8(PG_FUNCTION_ARGS)
+{
+ unsigned char *src = PG_GETARG_CSTRING(2);
+ unsigned char *dest = PG_GETARG_CSTRING(3);
+ int len = PG_GETARG_INT32(4);
+
+ Assert(PG_GETARG_INT32(0) == PG_SQL_ASCII);
+ Assert(PG_GETARG_INT32(1) == PG_UTF8);
+ Assert(len > 0);
+
+ pg_ascii2mic(src, dest, len);
+
+ PG_RETURN_INT32(0);
+}
+
+Datum
+utf8_to_ascii(PG_FUNCTION_ARGS)
+{
+ unsigned char *src = PG_GETARG_CSTRING(2);
+ unsigned char *dest = PG_GETARG_CSTRING(3);
+ int len = PG_GETARG_INT32(4);
+
+ Assert(PG_GETARG_INT32(0) == PG_UTF8);
+ Assert(PG_GETARG_INT32(1) == PG_SQL_ASCII);
+ Assert(len > 0);
+
+ pg_mic2ascii(src, dest, len);
+
+ PG_RETURN_INT32(0);
+}
--- /dev/null
+#-------------------------------------------------------------------------
+#
+# $Id: Makefile,v 1.1 2002/07/16 09:25:05 ishii Exp $
+#
+#-------------------------------------------------------------------------
+top_builddir = ../../../../../..
+include $(top_builddir)/src/Makefile.global
+
+NAME := utf8_and_big5
+
+include ../proc.mk
--- /dev/null
+/*-------------------------------------------------------------------------
+ *
+ * BIG5 <--> UTF-8
+ *
+ * Portions Copyright (c) 1996-2002, PostgreSQL Global Development Group
+ * Portions Copyright (c) 1994, Regents of the University of California
+ *
+ * IDENTIFICATION
+ * $Header: /cvsroot/pgsql/src/backend/utils/mb/conversion_procs/utf8_and_big5/utf8_and_big5.c,v 1.1 2002/07/16 09:25:05 ishii Exp $
+ *
+ *-------------------------------------------------------------------------
+ */
+
+#include "postgres.h"
+#include "fmgr.h"
+#include "mb/pg_wchar.h"
+#include "../../Unicode/big5_to_utf8.map"
+#include "../../Unicode/utf8_to_big5.map"
+
+PG_FUNCTION_INFO_V1(big5_to_utf8)
+PG_FUNCTION_INFO_V1(utf8_to_big5)
+
+extern Datum big5_to_utf8(PG_FUNCTION_ARGS);
+extern Datum utf8_to_big5(PG_FUNCTION_ARGS);
+
+/* ----------
+ * conv_proc(
+ * INTEGER, -- source encoding id
+ * INTEGER, -- destination encoding id
+ * OPAQUE, -- source string (null terminated C string)
+ * OPAQUE, -- destination string (null terminated C string)
+ * INTEGER -- source string length
+ * ) returns INTEGER; -- dummy. returns nothing, actually.
+ * ----------
+ */
+Datum
+big5_to_utf8(PG_FUNCTION_ARGS)
+{
+ unsigned char *src = PG_GETARG_CSTRING(2);
+ unsigned char *dest = PG_GETARG_CSTRING(3);
+ int len = PG_GETARG_INT32(4);
+
+ Assert(PG_GETARG_INT32(0) == PG_BIG5);
+ Assert(PG_GETARG_INT32(1) == PG_UTF8);
+ Assert(len > 0);
+
+ LocalToUtf(src, dest, LUmapBIG5,
+ sizeof(LUmapBIG5) / sizeof(pg_local_to_utf), PG_BIG5, len);
+
+ PG_RETURN_INT32(0);
+}
+
+Datum
+utf8_to_big5(PG_FUNCTION_ARGS)
+{
+ unsigned char *src = PG_GETARG_CSTRING(2);
+ unsigned char *dest = PG_GETARG_CSTRING(3);
+ int len = PG_GETARG_INT32(4);
+
+ Assert(PG_GETARG_INT32(0) == PG_UTF8);
+ Assert(PG_GETARG_INT32(1) == PG_BIG5);
+ Assert(len > 0);
+
+ UtfToLocal(src, dest, ULmapBIG5,
+ sizeof(ULmapBIG5) / sizeof(pg_utf_to_local), len);
+
+ PG_RETURN_INT32(0);
+}
--- /dev/null
+#-------------------------------------------------------------------------
+#
+# $Id: Makefile,v 1.1 2002/07/16 09:25:05 ishii Exp $
+#
+#-------------------------------------------------------------------------
+top_builddir = ../../../../../..
+include $(top_builddir)/src/Makefile.global
+
+NAME := utf8_and_euc_cn
+
+include ../proc.mk
--- /dev/null
+/*-------------------------------------------------------------------------
+ *
+ * EUC_CN <--> UTF-8
+ *
+ * Portions Copyright (c) 1996-2002, PostgreSQL Global Development Group
+ * Portions Copyright (c) 1994, Regents of the University of California
+ *
+ * IDENTIFICATION
+ * $Header: /cvsroot/pgsql/src/backend/utils/mb/conversion_procs/utf8_and_euc_cn/utf8_and_euc_cn.c,v 1.1 2002/07/16 09:25:05 ishii Exp $
+ *
+ *-------------------------------------------------------------------------
+ */
+
+#include "postgres.h"
+#include "fmgr.h"
+#include "mb/pg_wchar.h"
+#include "../../Unicode/euc_cn_to_utf8.map"
+#include "../../Unicode/utf8_to_euc_cn.map"
+
+PG_FUNCTION_INFO_V1(euc_cn_to_utf8)
+PG_FUNCTION_INFO_V1(utf8_to_euc_cn)
+
+extern Datum euc_cn_to_utf8(PG_FUNCTION_ARGS);
+extern Datum utf8_to_euc_cn(PG_FUNCTION_ARGS);
+
+/* ----------
+ * conv_proc(
+ * INTEGER, -- source encoding id
+ * INTEGER, -- destination encoding id
+ * OPAQUE, -- source string (null terminated C string)
+ * OPAQUE, -- destination string (null terminated C string)
+ * INTEGER -- source string length
+ * ) returns INTEGER; -- dummy. returns nothing, actually.
+ * ----------
+ */
+Datum
+euc_cn_to_utf8(PG_FUNCTION_ARGS)
+{
+ unsigned char *src = PG_GETARG_CSTRING(2);
+ unsigned char *dest = PG_GETARG_CSTRING(3);
+ int len = PG_GETARG_INT32(4);
+
+ Assert(PG_GETARG_INT32(0) == PG_EUC_CN);
+ Assert(PG_GETARG_INT32(1) == PG_UTF8);
+ Assert(len > 0);
+
+ LocalToUtf(src, dest, LUmapEUC_CN,
+ sizeof(LUmapEUC_CN) / sizeof(pg_local_to_utf), PG_EUC_CN, len);
+
+ PG_RETURN_INT32(0);
+}
+
+Datum
+utf8_to_euc_cn(PG_FUNCTION_ARGS)
+{
+ unsigned char *src = PG_GETARG_CSTRING(2);
+ unsigned char *dest = PG_GETARG_CSTRING(3);
+ int len = PG_GETARG_INT32(4);
+
+ Assert(PG_GETARG_INT32(0) == PG_UTF8);
+ Assert(PG_GETARG_INT32(1) == PG_EUC_CN);
+ Assert(len > 0);
+
+ UtfToLocal(src, dest, ULmapEUC_CN,
+ sizeof(ULmapEUC_CN) / sizeof(pg_utf_to_local), len);
+
+ PG_RETURN_INT32(0);
+}
--- /dev/null
+#-------------------------------------------------------------------------
+#
+# $Id: Makefile,v 1.1 2002/07/16 09:25:05 ishii Exp $
+#
+#-------------------------------------------------------------------------
+top_builddir = ../../../../../..
+include $(top_builddir)/src/Makefile.global
+
+NAME := utf8_and_euc_jp
+
+include ../proc.mk
--- /dev/null
+/*-------------------------------------------------------------------------
+ *
+ * EUC_JP <--> UTF-8
+ *
+ * Portions Copyright (c) 1996-2002, PostgreSQL Global Development Group
+ * Portions Copyright (c) 1994, Regents of the University of California
+ *
+ * IDENTIFICATION
+ * $Header: /cvsroot/pgsql/src/backend/utils/mb/conversion_procs/utf8_and_euc_jp/utf8_and_euc_jp.c,v 1.1 2002/07/16 09:25:05 ishii Exp $
+ *
+ *-------------------------------------------------------------------------
+ */
+
+#include "postgres.h"
+#include "fmgr.h"
+#include "mb/pg_wchar.h"
+#include "../../Unicode/euc_jp_to_utf8.map"
+#include "../../Unicode/utf8_to_euc_jp.map"
+
+PG_FUNCTION_INFO_V1(euc_jp_to_utf8)
+PG_FUNCTION_INFO_V1(utf8_to_euc_jp)
+
+extern Datum euc_jp_to_utf8(PG_FUNCTION_ARGS);
+extern Datum utf8_to_euc_jp(PG_FUNCTION_ARGS);
+
+/* ----------
+ * conv_proc(
+ * INTEGER, -- source encoding id
+ * INTEGER, -- destination encoding id
+ * OPAQUE, -- source string (null terminated C string)
+ * OPAQUE, -- destination string (null terminated C string)
+ * INTEGER -- source string length
+ * ) returns INTEGER; -- dummy. returns nothing, actually.
+ * ----------
+ */
+Datum
+euc_jp_to_utf8(PG_FUNCTION_ARGS)
+{
+ unsigned char *src = PG_GETARG_CSTRING(2);
+ unsigned char *dest = PG_GETARG_CSTRING(3);
+ int len = PG_GETARG_INT32(4);
+
+ Assert(PG_GETARG_INT32(0) == PG_EUC_JP);
+ Assert(PG_GETARG_INT32(1) == PG_UTF8);
+ Assert(len > 0);
+
+ LocalToUtf(src, dest, LUmapEUC_JP,
+ sizeof(LUmapEUC_JP) / sizeof(pg_local_to_utf), PG_EUC_JP, len);
+
+ PG_RETURN_INT32(0);
+}
+
+Datum
+utf8_to_euc_jp(PG_FUNCTION_ARGS)
+{
+ unsigned char *src = PG_GETARG_CSTRING(2);
+ unsigned char *dest = PG_GETARG_CSTRING(3);
+ int len = PG_GETARG_INT32(4);
+
+ Assert(PG_GETARG_INT32(0) == PG_UTF8);
+ Assert(PG_GETARG_INT32(1) == PG_EUC_JP);
+ Assert(len > 0);
+
+ UtfToLocal(src, dest, ULmapEUC_JP,
+ sizeof(ULmapEUC_JP) / sizeof(pg_utf_to_local), len);
+
+ PG_RETURN_INT32(0);
+}
--- /dev/null
+#-------------------------------------------------------------------------
+#
+# $Id: Makefile,v 1.1 2002/07/16 09:25:05 ishii Exp $
+#
+#-------------------------------------------------------------------------
+top_builddir = ../../../../../..
+include $(top_builddir)/src/Makefile.global
+
+NAME := utf8_and_euc_kr
+
+include ../proc.mk
--- /dev/null
+/*-------------------------------------------------------------------------
+ *
+ * EUC_KR <--> UTF-8
+ *
+ * Portions Copyright (c) 1996-2002, PostgreSQL Global Development Group
+ * Portions Copyright (c) 1994, Regents of the University of California
+ *
+ * IDENTIFICATION
+ * $Header: /cvsroot/pgsql/src/backend/utils/mb/conversion_procs/utf8_and_euc_kr/utf8_and_euc_kr.c,v 1.1 2002/07/16 09:25:05 ishii Exp $
+ *
+ *-------------------------------------------------------------------------
+ */
+
+#include "postgres.h"
+#include "fmgr.h"
+#include "mb/pg_wchar.h"
+#include "../../Unicode/euc_kr_to_utf8.map"
+#include "../../Unicode/utf8_to_euc_kr.map"
+
+PG_FUNCTION_INFO_V1(euc_kr_to_utf8)
+PG_FUNCTION_INFO_V1(utf8_to_euc_kr)
+
+extern Datum euc_kr_to_utf8(PG_FUNCTION_ARGS);
+extern Datum utf8_to_euc_kr(PG_FUNCTION_ARGS);
+
+/* ----------
+ * conv_proc(
+ * INTEGER, -- source encoding id
+ * INTEGER, -- destination encoding id
+ * OPAQUE, -- source string (null terminated C string)
+ * OPAQUE, -- destination string (null terminated C string)
+ * INTEGER -- source string length
+ * ) returns INTEGER; -- dummy. returns nothing, actually.
+ * ----------
+ */
+Datum
+euc_kr_to_utf8(PG_FUNCTION_ARGS)
+{
+ unsigned char *src = PG_GETARG_CSTRING(2);
+ unsigned char *dest = PG_GETARG_CSTRING(3);
+ int len = PG_GETARG_INT32(4);
+
+ Assert(PG_GETARG_INT32(0) == PG_EUC_KR);
+ Assert(PG_GETARG_INT32(1) == PG_UTF8);
+ Assert(len > 0);
+
+ LocalToUtf(src, dest, LUmapEUC_KR,
+ sizeof(LUmapEUC_KR) / sizeof(pg_local_to_utf), PG_EUC_KR, len);
+
+ PG_RETURN_INT32(0);
+}
+
+Datum
+utf8_to_euc_kr(PG_FUNCTION_ARGS)
+{
+ unsigned char *src = PG_GETARG_CSTRING(2);
+ unsigned char *dest = PG_GETARG_CSTRING(3);
+ int len = PG_GETARG_INT32(4);
+
+ Assert(PG_GETARG_INT32(0) == PG_UTF8);
+ Assert(PG_GETARG_INT32(1) == PG_EUC_KR);
+ Assert(len > 0);
+
+ UtfToLocal(src, dest, ULmapEUC_KR,
+ sizeof(ULmapEUC_KR) / sizeof(pg_utf_to_local), len);
+
+ PG_RETURN_INT32(0);
+}
--- /dev/null
+#-------------------------------------------------------------------------
+#
+# $Id: Makefile,v 1.1 2002/07/16 09:25:05 ishii Exp $
+#
+#-------------------------------------------------------------------------
+top_builddir = ../../../../../..
+include $(top_builddir)/src/Makefile.global
+
+NAME := utf8_and_euc_tw
+
+include ../proc.mk
--- /dev/null
+/*-------------------------------------------------------------------------
+ *
+ * EUC_TW <--> UTF-8
+ *
+ * Portions Copyright (c) 1996-2002, PostgreSQL Global Development Group
+ * Portions Copyright (c) 1994, Regents of the University of California
+ *
+ * IDENTIFICATION
+ * $Header: /cvsroot/pgsql/src/backend/utils/mb/conversion_procs/utf8_and_euc_tw/utf8_and_euc_tw.c,v 1.1 2002/07/16 09:25:05 ishii Exp $
+ *
+ *-------------------------------------------------------------------------
+ */
+
+#include "postgres.h"
+#include "fmgr.h"
+#include "mb/pg_wchar.h"
+#include "../../Unicode/euc_tw_to_utf8.map"
+#include "../../Unicode/utf8_to_euc_tw.map"
+
+PG_FUNCTION_INFO_V1(euc_tw_to_utf8)
+PG_FUNCTION_INFO_V1(utf8_to_euc_tw)
+
+extern Datum euc_tw_to_utf8(PG_FUNCTION_ARGS);
+extern Datum utf8_to_euc_tw(PG_FUNCTION_ARGS);
+
+/* ----------
+ * conv_proc(
+ * INTEGER, -- source encoding id
+ * INTEGER, -- destination encoding id
+ * OPAQUE, -- source string (null terminated C string)
+ * OPAQUE, -- destination string (null terminated C string)
+ * INTEGER -- source string length
+ * ) returns INTEGER; -- dummy. returns nothing, actually.
+ * ----------
+ */
+Datum
+euc_tw_to_utf8(PG_FUNCTION_ARGS)
+{
+ unsigned char *src = PG_GETARG_CSTRING(2);
+ unsigned char *dest = PG_GETARG_CSTRING(3);
+ int len = PG_GETARG_INT32(4);
+
+ Assert(PG_GETARG_INT32(0) == PG_EUC_TW);
+ Assert(PG_GETARG_INT32(1) == PG_UTF8);
+ Assert(len > 0);
+
+ LocalToUtf(src, dest, LUmapEUC_TW,
+ sizeof(LUmapEUC_TW) / sizeof(pg_local_to_utf), PG_EUC_TW, len);
+
+ PG_RETURN_INT32(0);
+}
+
+Datum
+utf8_to_euc_tw(PG_FUNCTION_ARGS)
+{
+ unsigned char *src = PG_GETARG_CSTRING(2);
+ unsigned char *dest = PG_GETARG_CSTRING(3);
+ int len = PG_GETARG_INT32(4);
+
+ Assert(PG_GETARG_INT32(0) == PG_UTF8);
+ Assert(PG_GETARG_INT32(1) == PG_EUC_TW);
+ Assert(len > 0);
+
+ UtfToLocal(src, dest, ULmapEUC_TW,
+ sizeof(ULmapEUC_TW) / sizeof(pg_utf_to_local), len);
+
+ PG_RETURN_INT32(0);
+}
--- /dev/null
+#-------------------------------------------------------------------------
+#
+# $Id: Makefile,v 1.1 2002/07/16 09:25:05 ishii Exp $
+#
+#-------------------------------------------------------------------------
+top_builddir = ../../../../../..
+include $(top_builddir)/src/Makefile.global
+
+NAME := utf8_and_gb18030
+
+include ../proc.mk
--- /dev/null
+/*-------------------------------------------------------------------------
+ *
+ * GB18030 <--> UTF-8
+ *
+ * Portions Copyright (c) 1996-2002, PostgreSQL Global Development Group
+ * Portions Copyright (c) 1994, Regents of the University of California
+ *
+ * IDENTIFICATION
+ * $Header: /cvsroot/pgsql/src/backend/utils/mb/conversion_procs/utf8_and_gb18030/utf8_and_gb18030.c,v 1.1 2002/07/16 09:25:05 ishii Exp $
+ *
+ *-------------------------------------------------------------------------
+ */
+
+#include "postgres.h"
+#include "fmgr.h"
+#include "mb/pg_wchar.h"
+#include "../../Unicode/gb18030_to_utf8.map"
+#include "../../Unicode/utf8_to_gb18030.map"
+
+PG_FUNCTION_INFO_V1(gb18030_to_utf8)
+PG_FUNCTION_INFO_V1(utf8_to_gb18030)
+
+extern Datum gb18030_to_utf8(PG_FUNCTION_ARGS);
+extern Datum utf8_to_gb18030(PG_FUNCTION_ARGS);
+
+/* ----------
+ * conv_proc(
+ * INTEGER, -- source encoding id
+ * INTEGER, -- destination encoding id
+ * OPAQUE, -- source string (null terminated C string)
+ * OPAQUE, -- destination string (null terminated C string)
+ * INTEGER -- source string length
+ * ) returns INTEGER; -- dummy. returns nothing, actually.
+ * ----------
+ */
+Datum
+gb18030_to_utf8(PG_FUNCTION_ARGS)
+{
+ unsigned char *src = PG_GETARG_CSTRING(2);
+ unsigned char *dest = PG_GETARG_CSTRING(3);
+ int len = PG_GETARG_INT32(4);
+
+ Assert(PG_GETARG_INT32(0) == PG_GB18030);
+ Assert(PG_GETARG_INT32(1) == PG_UTF8);
+ Assert(len > 0);
+
+ LocalToUtf(src, dest, LUmapGB18030,
+ sizeof(LUmapGB18030) / sizeof(pg_local_to_utf), PG_GB18030, len);
+
+ PG_RETURN_INT32(0);
+}
+
+Datum
+utf8_to_gb18030(PG_FUNCTION_ARGS)
+{
+ unsigned char *src = PG_GETARG_CSTRING(2);
+ unsigned char *dest = PG_GETARG_CSTRING(3);
+ int len = PG_GETARG_INT32(4);
+
+ Assert(PG_GETARG_INT32(0) == PG_UTF8);
+ Assert(PG_GETARG_INT32(1) == PG_GB18030);
+ Assert(len > 0);
+
+ UtfToLocal(src, dest, ULmapGB18030,
+ sizeof(ULmapGB18030) / sizeof(pg_utf_to_local), len);
+
+ PG_RETURN_INT32(0);
+}
--- /dev/null
+#-------------------------------------------------------------------------
+#
+# $Id: Makefile,v 1.1 2002/07/16 09:25:05 ishii Exp $
+#
+#-------------------------------------------------------------------------
+top_builddir = ../../../../../..
+include $(top_builddir)/src/Makefile.global
+
+NAME := utf8_and_gbk
+
+include ../proc.mk
--- /dev/null
+/*-------------------------------------------------------------------------
+ *
+ * GBK <--> UTF-8
+ *
+ * Portions Copyright (c) 1996-2002, PostgreSQL Global Development Group
+ * Portions Copyright (c) 1994, Regents of the University of California
+ *
+ * IDENTIFICATION
+ * $Header: /cvsroot/pgsql/src/backend/utils/mb/conversion_procs/utf8_and_gbk/utf8_and_gbk.c,v 1.1 2002/07/16 09:25:05 ishii Exp $
+ *
+ *-------------------------------------------------------------------------
+ */
+
+#include "postgres.h"
+#include "fmgr.h"
+#include "mb/pg_wchar.h"
+#include "../../Unicode/gbk_to_utf8.map"
+#include "../../Unicode/utf8_to_gbk.map"
+
+PG_FUNCTION_INFO_V1(gbk_to_utf8)
+PG_FUNCTION_INFO_V1(utf8_to_gbk)
+
+extern Datum gbk_to_utf8(PG_FUNCTION_ARGS);
+extern Datum utf8_to_gbk(PG_FUNCTION_ARGS);
+
+/* ----------
+ * conv_proc(
+ * INTEGER, -- source encoding id
+ * INTEGER, -- destination encoding id
+ * OPAQUE, -- source string (null terminated C string)
+ * OPAQUE, -- destination string (null terminated C string)
+ * INTEGER -- source string length
+ * ) returns INTEGER; -- dummy. returns nothing, actually.
+ * ----------
+ */
+Datum
+gbk_to_utf8(PG_FUNCTION_ARGS)
+{
+ unsigned char *src = PG_GETARG_CSTRING(2);
+ unsigned char *dest = PG_GETARG_CSTRING(3);
+ int len = PG_GETARG_INT32(4);
+
+ Assert(PG_GETARG_INT32(0) == PG_GBK);
+ Assert(PG_GETARG_INT32(1) == PG_UTF8);
+ Assert(len > 0);
+
+ LocalToUtf(src, dest, LUmapGBK,
+ sizeof(LUmapGBK) / sizeof(pg_local_to_utf), PG_GBK, len);
+
+ PG_RETURN_INT32(0);
+}
+
+Datum
+utf8_to_gbk(PG_FUNCTION_ARGS)
+{
+ unsigned char *src = PG_GETARG_CSTRING(2);
+ unsigned char *dest = PG_GETARG_CSTRING(3);
+ int len = PG_GETARG_INT32(4);
+
+ Assert(PG_GETARG_INT32(0) == PG_UTF8);
+ Assert(PG_GETARG_INT32(1) == PG_GBK);
+ Assert(len > 0);
+
+ UtfToLocal(src, dest, ULmapGBK,
+ sizeof(ULmapGBK) / sizeof(pg_utf_to_local), len);
+
+ PG_RETURN_INT32(0);
+}
--- /dev/null
+#-------------------------------------------------------------------------
+#
+# $Id: Makefile,v 1.1 2002/07/16 09:25:05 ishii Exp $
+#
+#-------------------------------------------------------------------------
+top_builddir = ../../../../../..
+include $(top_builddir)/src/Makefile.global
+
+NAME := utf8_and_iso8859
+
+include ../proc.mk
--- /dev/null
+/*-------------------------------------------------------------------------
+ *
+ * ISO 8859 2-16 <--> UTF-8
+ *
+ * Portions Copyright (c) 1996-2002, PostgreSQL Global Development Group
+ * Portions Copyright (c) 1994, Regents of the University of California
+ *
+ * IDENTIFICATION
+ * $Header: /cvsroot/pgsql/src/backend/utils/mb/conversion_procs/utf8_and_iso8859/utf8_and_iso8859.c,v 1.1 2002/07/16 09:25:05 ishii Exp $
+ *
+ *-------------------------------------------------------------------------
+ */
+
+#include "postgres.h"
+#include "fmgr.h"
+#include "mb/pg_wchar.h"
+#include "../../Unicode/utf8_to_iso8859_2.map"
+#include "../../Unicode/utf8_to_iso8859_3.map"
+#include "../../Unicode/utf8_to_iso8859_4.map"
+#include "../../Unicode/utf8_to_iso8859_5.map"
+#include "../../Unicode/utf8_to_iso8859_6.map"
+#include "../../Unicode/utf8_to_iso8859_7.map"
+#include "../../Unicode/utf8_to_iso8859_8.map"
+#include "../../Unicode/utf8_to_iso8859_9.map"
+#include "../../Unicode/utf8_to_iso8859_10.map"
+#include "../../Unicode/utf8_to_iso8859_13.map"
+#include "../../Unicode/utf8_to_iso8859_14.map"
+#include "../../Unicode/utf8_to_iso8859_15.map"
+#include "../../Unicode/utf8_to_iso8859_16.map"
+#include "../../Unicode/iso8859_2_to_utf8.map"
+#include "../../Unicode/iso8859_3_to_utf8.map"
+#include "../../Unicode/iso8859_4_to_utf8.map"
+#include "../../Unicode/iso8859_5_to_utf8.map"
+#include "../../Unicode/iso8859_6_to_utf8.map"
+#include "../../Unicode/iso8859_7_to_utf8.map"
+#include "../../Unicode/iso8859_8_to_utf8.map"
+#include "../../Unicode/iso8859_9_to_utf8.map"
+#include "../../Unicode/iso8859_10_to_utf8.map"
+#include "../../Unicode/iso8859_13_to_utf8.map"
+#include "../../Unicode/iso8859_14_to_utf8.map"
+#include "../../Unicode/iso8859_15_to_utf8.map"
+#include "../../Unicode/iso8859_16_to_utf8.map"
+
+PG_FUNCTION_INFO_V1(iso8859_to_utf8)
+PG_FUNCTION_INFO_V1(utf8_to_iso8859)
+
+extern Datum iso8859_to_utf8(PG_FUNCTION_ARGS);
+extern Datum utf8_to_iso8859(PG_FUNCTION_ARGS);
+
+/* ----------
+ * conv_proc(
+ * INTEGER, -- source encoding id
+ * INTEGER, -- destination encoding id
+ * OPAQUE, -- source string (null terminated C string)
+ * OPAQUE, -- destination string (null terminated C string)
+ * INTEGER -- source string length
+ * ) returns INTEGER; -- dummy. returns nothing, actually.
+ * ----------
+ */
+
+typedef struct {
+ pg_enc encoding;
+ pg_local_to_utf *map1; /* to UTF-8 map name */
+ pg_utf_to_local *map2; /* from UTF-8 map name */
+ int size1; /* size of map1 */
+ int size2; /* size of map2 */
+} pg_conv_map;
+
+static pg_conv_map maps[] = {
+ {PG_SQL_ASCII}, /* SQL/ASCII */
+ {PG_EUC_JP}, /* EUC for Japanese */
+ {PG_EUC_CN}, /* EUC for Chinese */
+ {PG_EUC_KR}, /* EUC for Korean */
+ {PG_EUC_TW}, /* EUC for Taiwan */
+ {PG_JOHAB}, /* EUC for Korean JOHAB */
+ {PG_UTF8}, /* Unicode UTF-8 */
+ {PG_MULE_INTERNAL}, /* Mule internal code */
+ {PG_LATIN1}, /* ISO-8859-1 Latin 1 */
+ {PG_LATIN2, LUmapISO8859_2, ULmapISO8859_2,
+ sizeof(LUmapISO8859_2)/sizeof(pg_local_to_utf),
+ sizeof(ULmapISO8859_2)/sizeof(pg_utf_to_local)}, /* ISO-8859-2 Latin 2 */
+ {PG_LATIN3, LUmapISO8859_3, ULmapISO8859_3,
+ sizeof(LUmapISO8859_3)/sizeof(pg_local_to_utf),
+ sizeof(ULmapISO8859_3)/sizeof(pg_utf_to_local)}, /* ISO-8859-3 Latin 3 */
+ {PG_LATIN4, LUmapISO8859_4, ULmapISO8859_4,
+ sizeof(LUmapISO8859_4)/sizeof(pg_local_to_utf),
+ sizeof(ULmapISO8859_4)/sizeof(pg_utf_to_local)}, /* ISO-8859-4 Latin 4 */
+ {PG_LATIN5, LUmapISO8859_9, ULmapISO8859_9,
+ sizeof(LUmapISO8859_9)/sizeof(pg_local_to_utf),
+ sizeof(ULmapISO8859_9)/sizeof(pg_utf_to_local)}, /* ISO-8859-9 Latin 5 */
+ {PG_LATIN6, LUmapISO8859_10, ULmapISO8859_10,
+ sizeof(LUmapISO8859_10)/sizeof(pg_local_to_utf),
+ sizeof(ULmapISO8859_10)/sizeof(pg_utf_to_local)}, /* ISO-8859-10 Latin 6 */
+ {PG_LATIN7, LUmapISO8859_13, ULmapISO8859_13,
+ sizeof(LUmapISO8859_13)/sizeof(pg_local_to_utf),
+ sizeof(ULmapISO8859_13)/sizeof(pg_utf_to_local)}, /* ISO-8859-13 Latin 7 */
+ {PG_LATIN8, LUmapISO8859_14, ULmapISO8859_14,
+ sizeof(LUmapISO8859_14)/sizeof(pg_local_to_utf),
+ sizeof(ULmapISO8859_14)/sizeof(pg_utf_to_local)}, /* ISO-8859-14 Latin 8 */
+ {PG_LATIN9, LUmapISO8859_2, ULmapISO8859_2,
+ sizeof(LUmapISO8859_15)/sizeof(pg_local_to_utf),
+ sizeof(ULmapISO8859_15)/sizeof(pg_utf_to_local)}, /* ISO-8859-15 Latin 9 */
+ {PG_LATIN10, LUmapISO8859_16, ULmapISO8859_16,
+ sizeof(LUmapISO8859_16)/sizeof(pg_local_to_utf),
+ sizeof(ULmapISO8859_16)/sizeof(pg_utf_to_local)}, /* ISO-8859-16 Latin 10 */
+ {PG_WIN1256}, /* windows-1256 */
+ {PG_TCVN}, /* TCVN (Windows-1258) */
+ {PG_WIN874}, /* windows-874 */
+ {PG_KOI8R}, /* KOI8-R */
+ {PG_WIN1251}, /* windows-1251 (was: WIN) */
+ {PG_ALT}, /* (MS-DOS CP866) */
+ {PG_ISO_8859_5, LUmapISO8859_5, ULmapISO8859_5,
+ sizeof(LUmapISO8859_5)/sizeof(pg_local_to_utf),
+ sizeof(ULmapISO8859_5)/sizeof(pg_utf_to_local)}, /* ISO-8859-5 */
+ {PG_ISO_8859_6, LUmapISO8859_6, ULmapISO8859_6,
+ sizeof(LUmapISO8859_6)/sizeof(pg_local_to_utf),
+ sizeof(ULmapISO8859_6)/sizeof(pg_utf_to_local)}, /* ISO-8859-6 */
+ {PG_ISO_8859_7, LUmapISO8859_7, ULmapISO8859_7,
+ sizeof(LUmapISO8859_7)/sizeof(pg_local_to_utf),
+ sizeof(ULmapISO8859_7)/sizeof(pg_utf_to_local)}, /* ISO-8859-7 */
+ {PG_ISO_8859_8, LUmapISO8859_8, ULmapISO8859_8,
+ sizeof(LUmapISO8859_8)/sizeof(pg_local_to_utf),
+ sizeof(ULmapISO8859_8)/sizeof(pg_utf_to_local)}, /* ISO-8859-8 */
+};
+
+Datum
+iso8859_to_utf8(PG_FUNCTION_ARGS)
+{
+ int encoding = PG_GETARG_INT32(0);
+ unsigned char *src = PG_GETARG_CSTRING(2);
+ unsigned char *dest = PG_GETARG_CSTRING(3);
+ int len = PG_GETARG_INT32(4);
+
+ Assert(PG_GETARG_INT32(1) == PG_UTF8);
+ Assert(len > 0);
+
+ LocalToUtf(src, dest, maps[encoding].map1, maps[encoding].size1, encoding, len);
+
+ PG_RETURN_INT32(0);
+}
+
+Datum
+utf8_to_iso8859(PG_FUNCTION_ARGS)
+{
+ int encoding = PG_GETARG_INT32(1);
+ unsigned char *src = PG_GETARG_CSTRING(2);
+ unsigned char *dest = PG_GETARG_CSTRING(3);
+ int len = PG_GETARG_INT32(4);
+
+ Assert(PG_GETARG_INT32(0) == PG_UTF8);
+ Assert(len > 0);
+
+ UtfToLocal(src, dest, maps[encoding].map2, maps[encoding].size2, len);
+
+ PG_RETURN_INT32(0);
+}
--- /dev/null
+#-------------------------------------------------------------------------
+#
+# $Id: Makefile,v 1.1 2002/07/16 09:25:05 ishii Exp $
+#
+#-------------------------------------------------------------------------
+top_builddir = ../../../../../..
+include $(top_builddir)/src/Makefile.global
+
+NAME := utf8_and_iso8859_1
+
+include ../proc.mk
--- /dev/null
+/*-------------------------------------------------------------------------
+ *
+ * ISO8859_1 <--> UTF-8
+ *
+ * Portions Copyright (c) 1996-2002, PostgreSQL Global Development Group
+ * Portions Copyright (c) 1994, Regents of the University of California
+ *
+ * IDENTIFICATION
+ * $Header: /cvsroot/pgsql/src/backend/utils/mb/conversion_procs/utf8_and_iso8859_1/utf8_and_iso8859_1.c,v 1.1 2002/07/16 09:25:05 ishii Exp $
+ *
+ *-------------------------------------------------------------------------
+ */
+
+#include "postgres.h"
+#include "fmgr.h"
+#include "mb/pg_wchar.h"
+
+PG_FUNCTION_INFO_V1(iso8859_1_to_utf8)
+PG_FUNCTION_INFO_V1(utf8_to_iso8859_1)
+
+extern Datum iso8859_1_to_utf8(PG_FUNCTION_ARGS);
+extern Datum utf8_to_iso8859_1(PG_FUNCTION_ARGS);
+
+/* ----------
+ * conv_proc(
+ * INTEGER, -- source encoding id
+ * INTEGER, -- destination encoding id
+ * OPAQUE, -- source string (null terminated C string)
+ * OPAQUE, -- destination string (null terminated C string)
+ * INTEGER -- source string length
+ * ) returns INTEGER; -- dummy. returns nothing, actually.
+ * ----------
+ */
+
+Datum
+iso8859_1_to_utf8(PG_FUNCTION_ARGS)
+{
+ unsigned char *src = PG_GETARG_CSTRING(2);
+ unsigned char *dest = PG_GETARG_CSTRING(3);
+ int len = PG_GETARG_INT32(4);
+ unsigned short c;
+
+ Assert(PG_GETARG_INT32(0) == PG_LATIN1);
+ Assert(PG_GETARG_INT32(1) == PG_UTF8);
+ Assert(len > 0);
+
+ while (len-- > 0 && (c = *src++))
+ {
+ if (c < 0x80)
+ *dest++ = c;
+ else
+ {
+ *dest++ = (c >> 6) | 0xc0;
+ *dest++ = (c & 0x003f) | 0x80;
+ }
+ }
+ *dest = '\0';
+
+ PG_RETURN_INT32(0);
+}
+
+Datum
+utf8_to_iso8859_1(PG_FUNCTION_ARGS)
+{
+ unsigned char *src = PG_GETARG_CSTRING(2);
+ unsigned char *dest = PG_GETARG_CSTRING(3);
+ int len = PG_GETARG_INT32(4);
+ unsigned short c,
+ c1,
+ c2;
+
+ Assert(PG_GETARG_INT32(0) == PG_UTF8);
+ Assert(PG_GETARG_INT32(1) == PG_LATIN1);
+ Assert(len > 0);
+
+ while (len > 0 && (c = *src++))
+ {
+ if ((c & 0xe0) == 0xc0)
+ {
+ c1 = c & 0x1f;
+ c2 = *src++ & 0x3f;
+ *dest = c1 << 6;
+ *dest++ |= c2;
+ len -= 2;
+ }
+ else if ((c & 0xe0) == 0xe0)
+ elog(ERROR, "Could not convert UTF-8 to ISO8859-1");
+ else
+ {
+ *dest++ = c;
+ len--;
+ }
+ }
+ *dest = '\0';
+
+ PG_RETURN_INT32(0);
+}
--- /dev/null
+#-------------------------------------------------------------------------
+#
+# $Id: Makefile,v 1.1 2002/07/16 09:25:05 ishii Exp $
+#
+#-------------------------------------------------------------------------
+top_builddir = ../../../../../..
+include $(top_builddir)/src/Makefile.global
+
+NAME := utf8_and_johab
+
+include ../proc.mk
--- /dev/null
+/*-------------------------------------------------------------------------
+ *
+ * JOHAB <--> UTF-8
+ *
+ * Portions Copyright (c) 1996-2002, PostgreSQL Global Development Group
+ * Portions Copyright (c) 1994, Regents of the University of California
+ *
+ * IDENTIFICATION
+ * $Header: /cvsroot/pgsql/src/backend/utils/mb/conversion_procs/utf8_and_johab/utf8_and_johab.c,v 1.1 2002/07/16 09:25:06 ishii Exp $
+ *
+ *-------------------------------------------------------------------------
+ */
+
+#include "postgres.h"
+#include "fmgr.h"
+#include "mb/pg_wchar.h"
+#include "../../Unicode/johab_to_utf8.map"
+#include "../../Unicode/utf8_to_johab.map"
+
+PG_FUNCTION_INFO_V1(johab_to_utf8)
+PG_FUNCTION_INFO_V1(utf8_to_johab)
+
+extern Datum johab_to_utf8(PG_FUNCTION_ARGS);
+extern Datum utf8_to_johab(PG_FUNCTION_ARGS);
+
+/* ----------
+ * conv_proc(
+ * INTEGER, -- source encoding id
+ * INTEGER, -- destination encoding id
+ * OPAQUE, -- source string (null terminated C string)
+ * OPAQUE, -- destination string (null terminated C string)
+ * INTEGER -- source string length
+ * ) returns INTEGER; -- dummy. returns nothing, actually.
+ * ----------
+ */
+Datum
+johab_to_utf8(PG_FUNCTION_ARGS)
+{
+ unsigned char *src = PG_GETARG_CSTRING(2);
+ unsigned char *dest = PG_GETARG_CSTRING(3);
+ int len = PG_GETARG_INT32(4);
+
+ Assert(PG_GETARG_INT32(0) == PG_JOHAB);
+ Assert(PG_GETARG_INT32(1) == PG_UTF8);
+ Assert(len > 0);
+
+ LocalToUtf(src, dest, LUmapJOHAB,
+ sizeof(LUmapJOHAB) / sizeof(pg_local_to_utf), PG_JOHAB, len);
+
+ PG_RETURN_INT32(0);
+}
+
+Datum
+utf8_to_johab(PG_FUNCTION_ARGS)
+{
+ unsigned char *src = PG_GETARG_CSTRING(2);
+ unsigned char *dest = PG_GETARG_CSTRING(3);
+ int len = PG_GETARG_INT32(4);
+
+ Assert(PG_GETARG_INT32(0) == PG_UTF8);
+ Assert(PG_GETARG_INT32(1) == PG_JOHAB);
+ Assert(len > 0);
+
+ UtfToLocal(src, dest, ULmapJOHAB,
+ sizeof(ULmapJOHAB) / sizeof(pg_utf_to_local), len);
+
+ PG_RETURN_INT32(0);
+}
--- /dev/null
+#-------------------------------------------------------------------------
+#
+# $Id: Makefile,v 1.1 2002/07/16 09:25:06 ishii Exp $
+#
+#-------------------------------------------------------------------------
+top_builddir = ../../../../../..
+include $(top_builddir)/src/Makefile.global
+
+NAME := utf8_and_sjis
+
+include ../proc.mk
--- /dev/null
+/*-------------------------------------------------------------------------
+ *
+ * SJIS <--> UTF-8
+ *
+ * Portions Copyright (c) 1996-2002, PostgreSQL Global Development Group
+ * Portions Copyright (c) 1994, Regents of the University of California
+ *
+ * IDENTIFICATION
+ * $Header: /cvsroot/pgsql/src/backend/utils/mb/conversion_procs/utf8_and_sjis/utf8_and_sjis.c,v 1.1 2002/07/16 09:25:06 ishii Exp $
+ *
+ *-------------------------------------------------------------------------
+ */
+
+#include "postgres.h"
+#include "fmgr.h"
+#include "mb/pg_wchar.h"
+#include "../../Unicode/sjis_to_utf8.map"
+#include "../../Unicode/utf8_to_sjis.map"
+
+PG_FUNCTION_INFO_V1(sjis_to_utf8)
+PG_FUNCTION_INFO_V1(utf8_to_sjis)
+
+extern Datum sjis_to_utf8(PG_FUNCTION_ARGS);
+extern Datum utf8_to_sjis(PG_FUNCTION_ARGS);
+
+/* ----------
+ * conv_proc(
+ * INTEGER, -- source encoding id
+ * INTEGER, -- destination encoding id
+ * OPAQUE, -- source string (null terminated C string)
+ * OPAQUE, -- destination string (null terminated C string)
+ * INTEGER -- source string length
+ * ) returns INTEGER; -- dummy. returns nothing, actually.
+ * ----------
+ */
+Datum
+sjis_to_utf8(PG_FUNCTION_ARGS)
+{
+ unsigned char *src = PG_GETARG_CSTRING(2);
+ unsigned char *dest = PG_GETARG_CSTRING(3);
+ int len = PG_GETARG_INT32(4);
+
+ Assert(PG_GETARG_INT32(0) == PG_SJIS);
+ Assert(PG_GETARG_INT32(1) == PG_UTF8);
+ Assert(len > 0);
+
+ LocalToUtf(src, dest, LUmapSJIS,
+ sizeof(LUmapSJIS) / sizeof(pg_local_to_utf), PG_SJIS, len);
+
+ PG_RETURN_INT32(0);
+}
+
+Datum
+utf8_to_sjis(PG_FUNCTION_ARGS)
+{
+ unsigned char *src = PG_GETARG_CSTRING(2);
+ unsigned char *dest = PG_GETARG_CSTRING(3);
+ int len = PG_GETARG_INT32(4);
+
+ Assert(PG_GETARG_INT32(0) == PG_UTF8);
+ Assert(PG_GETARG_INT32(1) == PG_SJIS);
+ Assert(len > 0);
+
+ UtfToLocal(src, dest, ULmapSJIS,
+ sizeof(ULmapSJIS) / sizeof(pg_utf_to_local), len);
+
+ PG_RETURN_INT32(0);
+}
--- /dev/null
+#-------------------------------------------------------------------------
+#
+# $Id: Makefile,v 1.1 2002/07/16 09:25:06 ishii Exp $
+#
+#-------------------------------------------------------------------------
+top_builddir = ../../../../../..
+include $(top_builddir)/src/Makefile.global
+
+NAME := utf8_and_tcvn
+
+include ../proc.mk
--- /dev/null
+/*-------------------------------------------------------------------------
+ *
+ * TCVN <--> UTF-8
+ *
+ * Portions Copyright (c) 1996-2002, PostgreSQL Global Development Group
+ * Portions Copyright (c) 1994, Regents of the University of California
+ *
+ * IDENTIFICATION
+ * $Header: /cvsroot/pgsql/src/backend/utils/mb/conversion_procs/utf8_and_tcvn/Attic/utf8_and_tcvn.c,v 1.1 2002/07/16 09:25:06 ishii Exp $
+ *
+ *-------------------------------------------------------------------------
+ */
+
+#include "postgres.h"
+#include "fmgr.h"
+#include "mb/pg_wchar.h"
+#include "../../Unicode/tcvn_to_utf8.map"
+#include "../../Unicode/utf8_to_tcvn.map"
+
+PG_FUNCTION_INFO_V1(tcvn_to_utf8)
+PG_FUNCTION_INFO_V1(utf8_to_tcvn)
+
+extern Datum tcvn_to_utf8(PG_FUNCTION_ARGS);
+extern Datum utf8_to_tcvn(PG_FUNCTION_ARGS);
+
+/* ----------
+ * conv_proc(
+ * INTEGER, -- source encoding id
+ * INTEGER, -- destination encoding id
+ * OPAQUE, -- source string (null terminated C string)
+ * OPAQUE, -- destination string (null terminated C string)
+ * INTEGER -- source string length
+ * ) returns INTEGER; -- dummy. returns nothing, actually.
+ * ----------
+ */
+Datum
+tcvn_to_utf8(PG_FUNCTION_ARGS)
+{
+ unsigned char *src = PG_GETARG_CSTRING(2);
+ unsigned char *dest = PG_GETARG_CSTRING(3);
+ int len = PG_GETARG_INT32(4);
+
+ Assert(PG_GETARG_INT32(0) == PG_TCVN);
+ Assert(PG_GETARG_INT32(1) == PG_UTF8);
+ Assert(len > 0);
+
+ LocalToUtf(src, dest, LUmapTCVN,
+ sizeof(LUmapTCVN) / sizeof(pg_local_to_utf), PG_TCVN, len);
+
+ PG_RETURN_INT32(0);
+}
+
+Datum
+utf8_to_tcvn(PG_FUNCTION_ARGS)
+{
+ unsigned char *src = PG_GETARG_CSTRING(2);
+ unsigned char *dest = PG_GETARG_CSTRING(3);
+ int len = PG_GETARG_INT32(4);
+
+ Assert(PG_GETARG_INT32(0) == PG_UTF8);
+ Assert(PG_GETARG_INT32(1) == PG_TCVN);
+ Assert(len > 0);
+
+ UtfToLocal(src, dest, ULmapTCVN,
+ sizeof(ULmapTCVN) / sizeof(pg_utf_to_local), len);
+
+ PG_RETURN_INT32(0);
+}
--- /dev/null
+#-------------------------------------------------------------------------
+#
+# $Id: Makefile,v 1.1 2002/07/16 09:25:06 ishii Exp $
+#
+#-------------------------------------------------------------------------
+top_builddir = ../../../../../..
+include $(top_builddir)/src/Makefile.global
+
+NAME := utf8_and_uhc
+
+include ../proc.mk
--- /dev/null
+/*-------------------------------------------------------------------------
+ *
+ * UHC <--> UTF-8
+ *
+ * Portions Copyright (c) 1996-2002, PostgreSQL Global Development Group
+ * Portions Copyright (c) 1994, Regents of the University of California
+ *
+ * IDENTIFICATION
+ * $Header: /cvsroot/pgsql/src/backend/utils/mb/conversion_procs/utf8_and_uhc/utf8_and_uhc.c,v 1.1 2002/07/16 09:25:06 ishii Exp $
+ *
+ *-------------------------------------------------------------------------
+ */
+
+#include "postgres.h"
+#include "fmgr.h"
+#include "mb/pg_wchar.h"
+#include "../../Unicode/uhc_to_utf8.map"
+#include "../../Unicode/utf8_to_uhc.map"
+
+PG_FUNCTION_INFO_V1(uhc_to_utf8)
+PG_FUNCTION_INFO_V1(utf8_to_uhc)
+
+extern Datum uhc_to_utf8(PG_FUNCTION_ARGS);
+extern Datum utf8_to_uhc(PG_FUNCTION_ARGS);
+
+/* ----------
+ * conv_proc(
+ * INTEGER, -- source encoding id
+ * INTEGER, -- destination encoding id
+ * OPAQUE, -- source string (null terminated C string)
+ * OPAQUE, -- destination string (null terminated C string)
+ * INTEGER -- source string length
+ * ) returns INTEGER; -- dummy. returns nothing, actually.
+ * ----------
+ */
+Datum
+uhc_to_utf8(PG_FUNCTION_ARGS)
+{
+ unsigned char *src = PG_GETARG_CSTRING(2);
+ unsigned char *dest = PG_GETARG_CSTRING(3);
+ int len = PG_GETARG_INT32(4);
+
+ Assert(PG_GETARG_INT32(0) == PG_UHC);
+ Assert(PG_GETARG_INT32(1) == PG_UTF8);
+ Assert(len > 0);
+
+ LocalToUtf(src, dest, LUmapUHC,
+ sizeof(LUmapUHC) / sizeof(pg_local_to_utf), PG_UHC, len);
+
+ PG_RETURN_INT32(0);
+}
+
+Datum
+utf8_to_uhc(PG_FUNCTION_ARGS)
+{
+ unsigned char *src = PG_GETARG_CSTRING(2);
+ unsigned char *dest = PG_GETARG_CSTRING(3);
+ int len = PG_GETARG_INT32(4);
+
+ Assert(PG_GETARG_INT32(0) == PG_UTF8);
+ Assert(PG_GETARG_INT32(1) == PG_UHC);
+ Assert(len > 0);
+
+ UtfToLocal(src, dest, ULmapUHC,
+ sizeof(ULmapUHC) / sizeof(pg_utf_to_local), len);
+
+ PG_RETURN_INT32(0);
+}