Add missing files.

1 files changed, 264 insertions, 0 deletions

diff --git a/src/backend/utils/mb/encnames.c b/src/backend/utils/mb/encnames.c
new file mode 100644
index 00000000000..f7b0ea3a34c
--- /dev/null
+++ b/src/backend/utils/mb/encnames.c
@@ -0,0 +1,264 @@
+/*
+ * Encoding names and routines for work with it. All
+ * in this file is shared bedween FE and BE.
+ *
+ * $Id: encnames.c,v 1.1 2001/09/07 03:32:11 ishii Exp $
+ */
+#ifdef FRONTEND
+#include "postgres_fe.h"
+#define Assert(condition)
+#else
+#include "postgres.h"
+#include "miscadmin.h"
+#include "utils/builtins.h"
+#endif
+
+#ifdef WIN32
+#include "win32.h"
+#else
+#include <unistd.h>
+#endif
+
+#include "mb/pg_wchar.h"
+#include <ctype.h>
+
+/*
+ * Debug
+ */
+/* #define DEBUG_ENCODING */ 
+#ifdef DEBUG_ENCODING
+#ifdef FRONTEND
+#define encdebug(_format, _a...)	fprintf(stderr, _format, ##_a)
+#else
+#define encdebug(_format, _a...)	elog(NOTICE, _format, ##_a)	
+#endif
+#else
+#define encdebug(_format, _a...)
+#endif
+
+/* ----------
+ * All encoding names, sorted:       *** A L P H A B E T I C *** 
+ *
+ * All names must be without irrelevan chars, search routines use
+ * isalnum() chars only. It means ISO-8859-1, iso_8859-1 and Iso8859_1
+ * are always converted to 'iso88591'. All must be lower case.
+ *
+ * The table doesn't contain 'cs' aliases (like csISOLatin1). It's needful? 
+ *
+ * Karel Zak, Aug 2001
+ * ----------
+ */ 
+pg_encname pg_encname_tbl[] =
+{
+	{ "alt",	PG_ALT },		/* IBM866 */
+	{ "big5",	PG_BIG5 },		/* Big5; Chinese for Taiwan Multi-byte set */
+ 	{ "euccn",	PG_EUC_CN },		/* EUC-CN; ??? */
+	{ "eucjp",	PG_EUC_JP },		/* EUC-JP; Extended UNIX Code Fixed Width for Japanese, stdandard OSF */
+	{ "euckr",	PG_EUC_KR },		/* EUC-KR; RFC1557,Choi */
+	{ "euctw",	PG_EUC_TW },		/* EUC-TW; ???  */
+	{ "iso88591",	PG_LATIN1 },		/* ISO-8859-1; RFC1345,KXS2 */
+	{ "iso88592",	PG_LATIN2 },		/* ISO-8859-2; RFC1345,KXS2 */
+	{ "iso88593",	PG_LATIN3 },		/* ISO-8859-3; RFC1345,KXS2 */
+	{ "iso88594",	PG_LATIN4 },		/* ISO-8859-4; RFC1345,KXS2 */
+	{ "iso88595",	PG_LATIN5 },		/* ISO-8859-5; RFC1345,KXS2 */
+	{ "koi8",	PG_KOI8R },		/* _dirty_ alias for KOI8-R (back compatibility) */
+	{ "koi8r",	PG_KOI8R },		/* KOI8-R; RFC1489 */
+	{ "latin1",	PG_LATIN1 },		/* alias for ISO-8859-1 */
+	{ "latin2",	PG_LATIN2 },		/* alias for ISO-8859-2 */
+	{ "latin3",	PG_LATIN3 },		/* alias for ISO-8859-3 */
+	{ "latin4",	PG_LATIN4 },		/* alias for ISO-8859-4 */
+	{ "latin5",	PG_LATIN5 },		/* alias for ISO-8859-5 */
+	{ "mskanji",	PG_SJIS },		/* alias for Shift_JIS */
+	{ "muleinternal",PG_MULE_INTERNAL },
+	{ "shiftjis",	PG_SJIS },		/* Shift_JIS; JIS X 0202-1991 */
+	{ "sjis",	PG_SJIS },		/* alias for Shift_JIS */
+	{ "sqlascii",	PG_SQL_ASCII },
+	{ "unicode",	PG_UTF8 },		/* alias for UTF-8 */
+	{ "utf8",	PG_UTF8 },		/* UTF-8; RFC2279 */
+	{ "win", 	PG_WIN1251 },		/* _dirty_ alias for windows-1251 (back compatibility) */
+	{ "win1250",	PG_WIN1250 },		/* alias for Windows-1250 */
+	{ "win1251",	PG_WIN1251 },		/* alias for Windows-1251 */
+	{ "windows1250",PG_WIN1250 },		/* Windows-1251; Microsoft */
+	{ "windows1251",PG_WIN1251 },		/* Windows-1251; Microsoft */
+
+	{ NULL, 0 }	/* last */
+};
+
+unsigned int pg_encname_tbl_sz = \
+		sizeof(pg_encname_tbl) / sizeof(pg_encname_tbl[0]) -1;
+
+/* ----------
+ * WARNING: sorted by pg_enc enum (pg_wchar.h)! 
+ * ----------
+ */
+pg_enc2name pg_enc2name_tbl[] =
+{
+	{ "SQL_ASCII",	PG_SQL_ASCII },
+	{ "EUC_JP",	PG_EUC_JP },
+	{ "EUC_CN",	PG_EUC_CN },
+	{ "EUC_KR",	PG_EUC_KR },
+	{ "EUC_TW",	PG_EUC_TW },
+	{ "UNICODE",	PG_UTF8 },
+	{ "MULE_INTERNAL",PG_MULE_INTERNAL },
+	{ "LATIN1",	PG_LATIN1 },
+	{ "LATIN2",	PG_LATIN2 },
+	{ "LATIN3",	PG_LATIN3 },
+	{ "LATIN4",	PG_LATIN4 },
+	{ "LATIN5",	PG_LATIN5 },
+	{ "KOI8",	PG_KOI8R },
+	{ "WIN",	PG_WIN1251 },
+	{ "ALT",	PG_ALT },
+	{ "SJIS",	PG_SJIS },
+	{ "BIG5",	PG_BIG5 },
+	{ "WIN1250",	PG_WIN1250 }
+};
+
+/* ----------
+ * Encoding checks, for error returns -1 else encoding id
+ * ----------
+ */
+int
+pg_valid_client_encoding(const char *name)
+{
+	int enc;
+
+	if ((enc = pg_char_to_encoding(name)) < 0)
+		return -1;
+
+	if (!PG_VALID_FE_ENCODING( enc))
+		return -1;
+
+	return enc;
+}
+
+int
+pg_valid_server_encoding(const char *name)
+{
+	int enc;
+
+	if ((enc = pg_char_to_encoding(name)) < 0)
+		return -1;
+
+	if (!PG_VALID_BE_ENCODING( enc))
+		return -1;
+
+	return enc;
+}
+
+/* ----------
+ * Remove irrelevant chars from encoding name
+ * ----------
+ */
+static char *
+clean_encoding_name(char *key, char *newkey)
+{
+	char	*p, *np;
+
+	for(p=key, np=newkey; *p!='\0'; p++)
+	{
+		if (isalnum((unsigned char) *p))
+			*np++=tolower((unsigned char) *p);
+	}
+	*np = '\0';
+	return newkey;
+}
+
+/* ----------
+ * Search encoding by encoding name
+ * ----------
+ */
+pg_encname *
+pg_char_to_encname_struct(const char *name)
+{
+	unsigned int 	nel = pg_encname_tbl_sz;
+	pg_encname	*base = pg_encname_tbl,
+			*last = base + nel - 1,
+			*position;
+	int		result;
+	char		buff[NAMEDATALEN],
+			*key;
+
+	if(name==NULL || *name=='\0')
+		return NULL;	
+
+	if (strlen(name) > NAMEDATALEN)
+	{
+#ifdef FRONTEND
+		fprintf(stderr, "pg_char_to_encname_struct(): encoding name too long");
+		return NULL;
+#else
+		elog(ERROR, "pg_char_to_encname_struct(): encoding name too long");
+#endif
+	}
+	key = clean_encoding_name((char *) name, buff);
+
+	encdebug("Name: %s", key);
+
+	while (last >= base)
+	{	
+		position = base + ((last - base) >> 1);
+		result = key[0] - position->name[0];
+		
+		if (result == 0)
+		{
+			result = strcmp(key, position->name);
+			if (result == 0)
+				return position;
+		}
+		if (result < 0)
+			last = position - 1;
+		else
+			base = position + 1;
+	}
+
+	encdebug("UNKNOWN! encoding");
+	return NULL;
+}
+
+/*
+ * Returns encoding or -1 for error
+ */
+int
+pg_char_to_encoding(const char *s)
+{
+	pg_encname *p = NULL;
+
+	if (!s)
+		return (-1);
+
+	p = pg_char_to_encname_struct(s);
+	return p ? p->encoding : -1;
+}
+
+#ifndef FRONTEND
+Datum
+PG_char_to_encoding(PG_FUNCTION_ARGS)
+{
+	Name		s = PG_GETARG_NAME(0);
+	PG_RETURN_INT32(pg_char_to_encoding(NameStr(*s)));
+}
+#endif
+
+const char *
+pg_encoding_to_char(int encoding)
+{
+	if (PG_VALID_ENCODING(encoding))
+	{
+		pg_enc2name *p = &pg_enc2name_tbl[ encoding ];		
+		Assert( encoding == p->encoding );
+		return p->name;
+	}
+	return "";
+}
+
+#ifndef FRONTEND
+Datum
+PG_encoding_to_char(PG_FUNCTION_ARGS)
+{
+	int32		encoding = PG_GETARG_INT32(0);
+	const char	*encoding_name = pg_encoding_to_char(encoding);
+
+	return DirectFunctionCall1(namein, CStringGetDatum(encoding_name));
+}
+#endif
+